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SYSTEME EXPERT 

pour Macintosh 



Installs? un Systeme Expert aux fonctionnahtes professionnelles 
sur voire Mac ( 1 28 K, 5 1 2K , 5 1 2/800 ou MacPlus) : 

• Creation, modification, sauvegardede'vos propres « Bases de 
Connaissances» pouvantcontenir jusqu'3 250 Regies exprimees 
en fran^aiscourant 

• Chaque Regie peut comporter de 1 a 6 conditions 

• Liste et Dictionnaire des Bases de Regies et de Faits 

• Moteur tf inference fonctionnant en logique propositionnelle 

• Simplicity d* utilisation, exploitant toute la convivialite du Mac 

• Logiciel structure ecrit en Microsoft© M BASIC 2.0 

• Programme source livre non protege 

• Logietel pi upuse complet, port inclus, au prix de 



350 F TTC 



FONCTIONNE EN 

• Chainage avant 

• Chainage arriere 

• Verification 
d'hypotheseg 

• Modes "deduction" 
et "verification"' 
assistees, proposes 
automatiquemeni 
en cas de non- 
resolution 



Commands desaujourd'hui votredisquette. contenant le Programme source + Mode d'emploi et Documentation 
complete + 3 Bases deConnaissances proposeesen exemple (que vous pourrez editer et modifier) 
en Botanique, Diagnostic automobile et Graphologie 

fldressez uotre cheque a BOYER-LRRUET, 22 Soudanes, 78430 LOUUECIENNES 
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Disquettes d' 'accomp agnement 
Apple II : DOS & ProDOS, 
800 Ko et 140 Ko 



A partir de ce numerO/ les disquettes 
d'accompagnement de la revue vous sont 
proposes sous deux formes : 140 Ko 5,25 
pouces et 800 Ko 3,5 pouces, et ce, pour penser 
a nos lcctcurs qui ont 'craque' pour le lies et 
qui n'ont plus de drive 140 Ko. 
Autre nouveaute, nos disquettes 140 Ko vous 
sont proposees en double face : 

- Recto format^ en DOS 3.3 

- Verso formate en ProDOS (nommee 
/POMS29/) 

sans changement de prix ; 60,00 F. 

La disquette 800 Ko coute 80,00 F. 

Les deux faces de la disquette 140 Ko et la 
disquette 800 Ko comportent tous les fichiers 
relatifs a la revue sans tenir compte du 



systerne d'exploitation necessaire a tel ou tel 
programme : vous pouvez ainsi recuperer les 
fichiers plus facilement pour les adapter ou en 
cxtraire les routines. 

Pour plus de commodite, sur la disquette 800 
Ko et sur la face ProDOS de la disquette 140 Ko, 
mettez les fichiers 'ProDOS' et 
'BASIC. SYSTEM' pour que vous puissiez 
demarrer directement. 

Voici la liste des fichiers des disquettes 
d'accompagnement de ce numero avec 
indication du systerne d'exploitation supporte 
pour leur fonctionnement. Bicn entendu, les 
sources (tous en format TEXT) peuvent etre 
utilises indifferemment avec DOS et ProDOS. 



Fichier 


DOS 


ProDOS Remarques 


RECHERCHE 


■ 


objet executable (BRUN) 


T. RECHERCHE 




• source 


DHGR.DEMO 


• 


• programme dp demonstration Basic (RUN ou -) 


DHGR 


• 


• objet appele par DHGR.DEMO 


DHCR.PIC 


* 


• image DHCR (Extasie) utilisee par DHGR.DEMO 


T.DHGK 


* 


• source 


KYRAM 




objet executable (BRUN) 


T.KYRAM 


• 


• source 


INDEX 




• objet executable (BRUM ou -) 


BLOC 




• objet executable (BRUN ou -) 


T.INDEX.CODE 


• 


• source 


T.BLOC.CODE 


» 


• source 


KRUPTOS 




• objet executable (BRUN ou ) 


KRUPTOS.S 


• 


• source 


KRUPTOS.CODE 




• objet non executable 


SECRET 


• 


• fichier a d&rrypter par vos soins 


SIMFLEXE 


• 


programme Basic (RUN) 


PATISSERIE 




fichier de demonstration utilise? par Simplexe 


WPL.TAB 


• 


• programme WPL pour AppleWriter 


AW1.C 




• objet a 'bloader' pour patc.her AppleWriter 


AW2.C 




• objet & 'bloader' pour patcher AppluWriter 


AW1 


• 


• source 


AW2 


• 


• source 


CRAPH.VIDEOTEX 


• 


• programme Basic (RUN) 
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Editorial 



Enfin, nous venons de voir la sortie du Mac ouvert, baptise Mac II, et du Mac SE (Super- 
Entrouvert ?), ainsi que I'apparition de toute une famille de nouveaux produits Mac, presenter 
dans ce numero. Le show typiquement "Apple 11 pour la sortie de ces nouveaux produits nous a 
convaincu, une fois dc plus, que cette societe doit detenir le brevet d'une nouvelle unite de 
mesure informatique, le Mo (Megalo-octet). 

Le plaisir de voir apparaitre ces nouveaux produits a ete quelque peu estomp6 par la dispari- 
tion, depuis la sortie de notre dernier numero, des revues Golden (disparition complete) et In- 
fomag (transmutation ?). Apres avoir ete la premiere revue dedice a unc famille de materiels 
micro, serons-nous la derniere ? II est certain qu'il en reste aujourd'hui a peine une dizaine, sur 
les plus de 50 creees depuis le premier numero de Pom's. Rassurez-vous, I'equipe de Pom's dis- 
pose loujours de Tenthousiasme et du dynamisme de tout 'micro-maniaque' mais egalement de 
curiosite face aux nouvelles machines et de projets qui se concretised au fil des numeros. 

Avec ce numero, nous vous proposons sur la disquette Macintosh 29 (et probablement de fagon 
reguliere sur les prochaines) des logiciels domaine public on Mac Honor. Bien entendu, nous les 
nietlons sur nos disquettes sans en modifier le prix. 

Autres nouveautes : 

• les disquettes Apple // existent aujourd'hui en 800 Ko ProDOS et 140 Ko DOS et ProDOS... 
sans modification de prix, 

• EPE 5.1 fonctionnc sur V Apple IIgs et existe sur disquette 800 Ko, 

• BananaSoft, une nouvelle disquette qui jette un pont entre 1' Applesoft et le Basic Microsoft 
Sjc m 

Nous vous donnons bien entendu rendez-vous a Apple Expo, pas iminedialement, Apple ayant 
decide de maintenir 1c lieu dc La Vilette, mais de modifier la date : debut octobre. 

Herve Thiriez 
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Recherche d r octets 

Patrick Covare 



Ce programme pcrmet de recher- 
cher, en memoire ou sur dis- 
queite, une expression quelcon- 
que. 

II peut etre tres utile, par exem- 
ple pour retrouver tous les appels 
a une routine quelconque, 
Fcndroit ou unc memoire particu- 
liere est modifiee, etc. 

Ecrit en assembleur, le 
programme est rapide. Les 35 
pistes d'une disquette sont 
examinees en moins de 30 secon- 
des, et une recherche en memoire 
ne demande que 2 ou 3 secondes 
pour 64Ko. 

Commandes 
disponibles 

BRUN RECHERCHE lance le 
programme pour la premiere fois. 
Par la suite, on pourra 
indifferemment utiliser & 
(l'ampersand) ou Cirl-Y & panir 
du moniteur. 

Les commandes 'A' et 'Z' 
permettent de defmir les adresses 
hexadecimales de debut et fin de 
recherche en memoire vive. 

Ces adresses ne peuvent se situer 
ni dans l'espace $C000-SC0FF 
reserve aux entrees/sorties (sinon 
bonjour les degats!), ni dans la 
plage $9500-$95FF ou est 
conservee l'expression a recher- 
cher. Pendani l'execution, ces 
plages sont automat iquement 
6vit<*es par le programme. 

Si 1'adresse de depart est 
supcricurc a ccllc dc fin, 
RECHERCHE boucle sur $0000 
apres avoir examine 1'adresse 
$FFFF, 

Les commandes 'P' et 'F' 

permettent de saisir, toujours en 
hexadecimal, les numcros dc 



pistes de debut et fin de recherche 
sur la disquette. S'ils sont 
identiques, la recherche ne 
s'effectuera que sur une seule 
piste. 

La commande 'D' autorise le 
changement de lecteur (1 ou 2). 

La commande *E' permet 
d'entrer une expression a 
rechercher, expression coinposee 
au maximum de 256 caracteres. 

Trds pratique : inclure des 
caracteres inconnus (wildcards) 
en tapant un ou plusicurs '='. Par 
exemple : "20 == FD" trnuve.ra 
les appels & COUT ($FDED) t 
CO UTO ($FDF0 ) , KEYIN 
($FDlB) t etc. 

Afin de ne pas surcharger l'ecran, 
seuls les 11 premiers octets sont 
affiches sur le menu ; neanmoins, 
l'expression etant conservee a 
1'adresse $9500, elle peut etre 
visualisee par un simple appel du 
moniteur. 

Les commandes 'R' et 'S 1 
lancent une recherche en memoire 
ou sur disquette. 

Dans ce dernier cas, la touche 
ESCAPE permet d'interrompre la 
recherche en cours. 

Si des expressions idciiliques 
sont detectees, leurs adresses, et 

eventuellement les numeros de 

pistes ct scctcurs, sont affiches. 

Si rien n'a etc trouve, on revient 
au menu. 

Pour une recherche sur disquette, 
1'adresse er ses deux derniers 
chiffres completent l'affichage. 

Exemple : 

5862A P;$12 S:$9 

informc que l'expression a etc 
trouvee k l'octet S2A du secteur 
9, piste $12, et qu'elle se trouve 



actuellement en memoire a 
1'adresse S862A. 

Lors d'une recherche sur la 
disquette, les pistes sont chargees 
unc a unc, dans un buffer situc en 
SXOOO-SSFFF Les secteurs y 
sont stockes dans 1'ordre inverse 
(afin d'ameliorer le temps de 
traitement) : page S80 pour le 
secteur $F, S81 pour $E, jusqu'a 
$8Fpour le secteur 0. 

Bien emendu t le programme se 
charge ega lenient de l'affichage 
lorsque l'expression est trouvee 
plusicurs fois sur la ineine page 
ou le meme secteur (ce qui n'est 
pas le cas de Nibbles Away). 

La commande 'M' dirige vers 
le moniteur de TApple (retour par 
Ctrl-Y). 

La commands 'Q' permet de 
quitter le programme. 

Fonctionnement 
technique 

La configuration memoire sui- 
vame est ultlisee ; 

$0000...$OOOA 

vecteurs page zero ; 

$8000...$8FFF 

buffer de chargement d'une 
piste ; 

$9000...$94AO 

implantation du programme ; 

$9500...$95FF 

buffer de l'expression & 
rechercher ; 

$9600...$96FF 

buffer des caracteres inconnus. 

Le listing source est amplement 
commente et ne devrait pas poser 
dc problcmc dc comprehension. 
Cependant. il est bon de detainer 
l'algorithme de recherche. 
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Le sous -programme dc comparai- 
son utilise les buffers EXPRESS 
et WILD, initialises lors de la 
saisie de 1'expression. EXPRESS 
cornient la suite d'octets a recher- 
cher, WILD stocke l'emplace- 
ment des caracteres inconnus. 

Prenons un exemple. Soit 
1'expression saisie "A8 =B F3". 
Le buffer WILD, utilise pour 



effectuer un ET logique, cunticnt 
la valeur 'FFOFFF. Le zero 
indique la presence d'un caractere 
inconnu. Le buffer EXPRESS 
contient les codes 'A80BF3'. Le.s 
cspaccs tapes au clavier ont ete 
supprimes, et le troisieme 
caractere a ete remplace pax un 
zero. 

Si, lors de la recherche, le 



programme rencontre la suite 
d'octets 'A85BF3\ celle-ci est 
considdree comme identique car : 

A8 AND FF = A8 
5B AND OF = OB 
F3 AND FF = F3 

ce qui correspond exactement au 
conienu du buffer EXPRESS. 

a 



Source T. RECHERCHE' 

Assemblour Big Mac 

J • 

i • — RECHERCHE — • 

1 • 

5 • PATRICK COVARE 02/1 986 

6 • • 

7 * Anmmmblmvg Big Mac ' 



s: flOCMr 


- 


to 


it mfih 


- 


42 


13 PDSBUT 


- 


S4 


I * HDR-IVE 


- 


ss 


J* PFTN 


- 


it 


•( LOfK 


- 


S7 


:t opt mm 




SB 


19 TOVR 


- 


S9 


If LG 


- 


SA 


20 CH 


- 


S24 


2: PROMPT 




S33 


1 > Hit 
•it RiU 


• 


fir 


23 A2H 


- 


S3F 


2 4 LOCRNTS 


- 


SJE3 


25 AH PIPS 




S3F5 


Pi CTRLY 


- 


S3FB 


P? EXPRESS 




59500 


29 MILD 


- 


SJbUU 


J>S RtfTS 


- 


SB7BS 


33 RVDJIV 


- 


SB7EA 


31 RHVLM 


- 


SB7EB 


32 RMPST 


- 


SO? EG 


33 RUSCT 


- 


SB? ED 


34 KHV 


- 


SB3FO 


15 RHP SAD 




SR7F4 


36 PRNTAX 


- 


SF941 


31 BLANK 


- 


SF91A 


38 TABV 




SFB5B 


39 HOM£ 




SFC5B 


40 CLR£Ol 




SFC9C 


41 RDK£Y 




SFDOC 


42 GETSJ4 




SFV6A 


*y GtTEXP 




SFD6F 


44 CROt/T 




SFD8E 


43 PR3IIE 




SFDDA 


*6 fun HA 




StVEJ 


" COOT 




SFDEO 


■fB BEU. 




sffja 


ft HONS 




srr*> 


SO CETAVM 




SFFA7 


9§j ZHODE 




!FFC7 


52 






33 






S4 


ORG 


$9000 


59 


OBJ 


59000 


56 






57 






SB 


LUX 


97 


59 INIT 


LDA 


CODIN1T, 


60 


STA 


KVEBUT.X 


61 


OEX 




42 


BPL 


WIT 


%J * 












es • 






6t BEGIN 


IDA 


tS4C 


s? 


STA 


AMP EPS 


to 


BTA 


CTRLY 


(9 


UM 


IMFCIH 


70 


STA 


AHPFRK* 1 


71 


STA 


CTRLY' 1 


72 


LDA 


l>BEGIN 


73 


STA 


AMPEBS*J 


74 


S7A 


CTRLY '2 


73 


JSR 


MENU 


76 CHOlJt 


JSR 


RDKSY 


77 


LDX 


99 


?B VER1F 


CM? 


JOB.X 


79 


BEQ 


BON 



rAdreasm dm debut de rechercne? mmmo-irm 
,'Adrmaam dm fin dm reenvren* *»e«OJre 
■-Piste dm debut am rmcr.erche sur di aqumtce 
. c_ du leu. lev* mo ™ »ic» 
rPimtm d« /in de r»ch«rcftt mux dieyuette 
itin(u«»f dm 1 ' mHprmmoion a r<ft<reAar 
.'V»iira iim I 'option choimim mvlciplim par- 3 

an r urtffee- per pltnlmnr* roufinee 
.-Mmmoirm utiJisee par la routine MENU 



;Bu/;«c continent I'axpcaMsion a lacharchmt 

/Buffer dm position des caractmraa inconnus 



DOS 3.3 




;Chargancnt dm la chaina d'ini ziallaatton 



j AMPERSAND et 
/CTRL Y 



iAItlchaqe d-j 
{pais lecture 



mmnu, 

d'unm tovcfte 



;La touche eatonc** tMt-allt valid*? 
,'Oui, on aautm a BON. 



BO 


OCX 




,'Non, oa paurauic lm cut. 


« 


OPL 


vsftir 




U 


JSR 


BELL 


. fcODafef eta.iL i»u<jx*i.Cw — > DIP. 


Bl 


JMP 


CHOIX 


tpmim reCaur pour una autn 2«ctur« clavimcr. 


at Ann 


TM 




.•Lm> Bvmmro dm Iignm dm 1 'option chmimim 


as 


ASL 




;mmr mu tr IpUm p* r 3. 


86 

17 * 


STA 


OPTION 


;e: sauveijarde eo aesoir*. 


89 • 








90 JQBAZPF CPX 


14 


» ROUTINE DE MCDIF ADRESSES MEMO I RE ET PISTES 


#1 


BCS 


JOBD 


.•Saut a JOBD si option <> A.Z.P on F. 


92 


ADC 


IS 




93 


JSR 


TABV 


i Initialisation vartieala. 


94 


LDA 


120 




99 


STA 


CR 


;mt horizontal* du curaaur. 


>* 


WA 


t"S m 




97 


STA 


eROHFT 


;Hoaie au pronpiavr j»ur i astianaija tf 'un 4=. 


ft 


JSR 


GETLN 


ilmuLuim du clavier. 


39 


JSR 


SHOOE 




loo 


JSR 


CBTNVH 


fSauvmgaram J.-.n, ASL. ASM. 


101 


osr 




fA-t-mn e>nCre une engine vide? 


107 




BBC IN 




tn\ 


LOX 


OPTION 




104 


CPX 


94 


.■Option choialn - A e>u 3 ? 


103 


ace 


2,1 


;fhi i, Miir m 21 


106 


LDA 


A2L- 


•Un j- f J ■ 1 MP* 1 f <V <*V n r* e4* nne. BA j4f **" J mm mm, J mm.8l — 

mtwumit ' * * "J i ■ ""nt rj iintm pm| iz ai pilttj 


107 


CMT 


9523 


/fiL OQ VrnfrififM ltt r\\i9j\**rf\ f nWimrei 

9 a* * ""M r c 4. A 3* X V iu |J uSVi LJ * 1)12 1 IjUtM . 


108 


BCC 


12 


* BrjaiichBthtiiTiz tfn Z2 si pisa ^ 3S* 


109 ERR1UR 


JSR 


BELL 




no 


JHP 


BEGIN 


JpV-Lmm' eTtlCOUJ" AU W# A U * 


til tl 


LDA 


A2B 




112 


CMP 


9595 


,-Pajrtie haute de l'adtmaam - Sff ? 


113 


BEQ 


ERREUR 


iC'mmt intmrdlt. — > HIP. 


114 


VH# 


9SVQ 


.-Partim haiuc* dm 1'adraaam - SCO ? 


113 


BEQ 


ERJL&Vk 


tC'mtt effdiefieftE interdit — > B1P. 


IH- 


STA 


MDESOT'l 


X i SauvrngatOe 


lH 


LDA 


ASL 


/dm 


118 33 


STA 


HDSDXJT, X 




UB 


JMP 


BEGIN 


/•t re tour an nean. 


170 * 








132 - 








123 JOBD 


CPX 


IS 


* ROUTINE DE MOO IF tlTI NUMKRO OR TJTTRHR » 


124 


BCS 


JOBS 


/Saut a JOBS ai option O D. 


139 


DEC 


HDP.2VS 


$Si NDRZVE'2 — 3 KDftZVE'l, 


126 


BNE 


DRIVE 




127 


LDA 


12 


tat inversepent. 


12$ 


STA 


HDR1VE 




119 DRIVE 


LDA 


MDRIVE 


:AtCi chage 


130 


ORA 


9SBO 


tmn mode npr»aj 


131 


STA 


S6CF 


.■du nunero da Imctmur, 


132 


JHP 


CHOIX 


rat re tour pour una autre laetuem du claviac. 


133 • 
















i as m 








hk .mug 


CPX 


ti 


• ROUTINE SA1EIS DE L 'EXPRESSION A RECHERCHE* 


137 


PC'S 


-TOBP 


t.tmmt m JOBR ai optien o B. 


138 


LDA 


915 




139 


JSK 


TABV 


iT*i' .-- uerti«aJe, 


140 


LDA 


IB 




141 


STA 


CR 


/at narivootaJe du eurnur. 


142 


JSR 


CLRSOL 


;L'anciar.n* expression eat i//icm. 


143 


JSR 


CETSXP 


.•Ltetuet d*u ciawiar. 


144 


DSX 






145 


BMI 


STOP 


/Rmtovr an mmnu si on «ntr# una enaina vida. 


146 








147 


LDX 


10 


/VBR/r* DS CHAQUE CARACTERE DE L'SXPRISSIOH 


lit 


Lor 


10 




149 tfttOK£ 


LDA 


12 




ISO 


STA 


IV'JH 


/TOUR-2 — > dabuc da varificacion d'un octet. 


131 


LDA 


to 




132 


STA 


EXFRZSS, X 




133 


WA 


isrr 




134 


STA 


NILD.X 




1SS 1H 


IDA 


S3oo. r 


i-Cnargiain t U'uii Mjdciix*. 


f$4 


1NY 






157 


CMP 


tSAO 




158 


BEQ 


IN 


/"ui. on Del lie a>u caractere ouivant. 


ISf 


CMP 




/5at-ce un rmrmnr + rm inronnv? 


160 


BEQ 


ECAL 


;0'jj. on saute a EGAL. 


It I 


EQP 


ISBO 




162 


CMP 


ISOA 


lEat-il conpria antra at S ? 
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183 


BCC 


DICST 


/Out. ma mavze m D1C1T. 


398- 


BEQ 


JOBQ 


;5auL a JOBQ mi option M, 


184 


ADC 


i<B9 




36* 


LDA 


IRTNON 


. Icitim; . Iw Metaau CTRL Y. 


res 


CMP 


ISFA 


/Sat- Mi -:-rr.i entre A mi F ? 


379 


STA 


CTALY'l 


/pour un rmteur a PTMON. 


166 


BCS 


DIGIT 


fOvi. is.: ■ DIGIT. 


371 


LDA 


i >--;.-: 




167 


STX 


LONG 


:Non. on taovmgardm la lonavmvr de 1 'expresaion. 


373 


STA 


i-TBJ.V-7 




I SB STOP 


JHP 


BEGIN 


,-et oa retourne au nnu. 


27t 


JSR 


«W£ 




169 DIGIT 


AND 


ISOF 




274 


JSR 


COLT 




1 70 


DEC 


TOUR 


;Si TQUR-O, un Zer carect a deja ate verifie. 


275 


JMP 


HCHZ 


;Enzrma dana 1m aooJleur. 


171 


BEQ 


DEUX 


;et cn am branch* aloes a DEUX. 


276 R7HDN 


PU 




.-IfeinJtJaJjae Ja poiptevr tf» Pilf- 


172 


S7A 


EXPRESS, X 


iSleea, on i i . ■», -).- .« Jar carsctere. 


3TT 


PLA 






173 


JHP 


IN 


ip'jim on ii.-.r a IN pour la vmrlt d-j la am 


27» 


LDA 


OPTION 




17i EGAL 


DEC 


TOUR 




279 


CMP 


$l§ 


:L* aonitaur a-l-U aea Bppmlrn via ia aanti? 


175 


BEQ 


EGAL2 


.-Jaut a EGAL3 ml TOOR-O. 


3 BO 


BEQ 


RTJ 


lOvi. on :-• ■■.;■» au depart. 


1/6 


IMA 


«W 




291 


JMP 


QUEST 


;Ncn, on am branch* dans la routine de teat. 


ITT 


STA 


WILD, X 


,-On eftaroe Em bvrimt HOD • - r . 'Of, 


282 • 








178 


JNP 


irt 


fmt aeuta * IN 1* t"»t Ju ."■-< cajaci. 










179 BGALS 


LDA 


NIID.X 




3t1 ' 








190 


AND 


IfFO- 




395 JOBQ 


JSR 


HONE 


• ROUTINE DE SORTIE DU PROGRAMME • 


1*1 


STA 


VI ID. X 


; MsdJ !! ea t Jf ^ di» bvffmr NILD. 


386 


JHP 


S3D0 




192 


LDA 


to 


■af dana IVw pawr BArfif hWfer (XPHfJK. 


387 • 








jai nrvx 


PHA 














194 


IDA 


EXPRESS. X 




38% * 








its 


ASl 


.•Dmcalaaa 


a eaueJte du Jer earaetere 


790 TEST 


LDA 


tn 


• BMrriNF. nr CtTMPAMAJMOB) nts OCTsVfR • 


196 


ASl 




/itoclt pr«cede»aent dene EXPRESS- 


991 


STA 


TOUR 


rNmmar imm Im noabr* d'aa/iraaaiona raCrouvaaa. 


1*7 


ASL 






291 TSTY 


LOT 


to 




IBB 


ASL 






293 TSTA 


IDA 


SFFFF, I 


iCharQm ira octal a taacar. 


1B9 


STA 


EXPRESS. X 




294 


AND 


HI ID. Y 


tmoditim I 'accu ai e 'eat ur caract mconnu. 


190 


PLA 






295 


CMP 


EXPRESS, i 


;puim comparm avec J 'mmprmamion aourem. 


191 


CLC 






296 


BNE 


INCR 


;Saut m INCR ai em n 'eat paa identic*. 


192 


ADC 


EXPRESS. X 




297 


1HY 






193 


STA 


EXPRESS, X 


,'iauveoarda du eecond caraccera. 


298 


CPY 


LONG 


,'Emprmaaion aource entierement Eaataa? 


194 


INK 






299 


BNE 


TSTA 


.-Non, on continue lea comparaiaoita. 


J»3 


JHT 


ENCORE 


;ai vmtlCicaiiaa t/a I'wb&ab aHivani* 


300 


LDA 


TOW 




»f * 








301 


BNE 


PRTAUH 


rfam d'efraceaant d'acran an TUVA > Q, 










303 


JSJt 


HOflE 




194 * 








303 PRIAOX 


LDA 


t'S" 




I« JOSS 


CPX 


97 


• nOLVWK DK PXCHXtCUr CN HStOlPS • 


304 


JSR 


COW 


iACfinhm un 3. 


300 


BCS 


JOBS 


/Smut m .tO&S ■< apt inn <> Hr 


305 


LDA 


7S7A-2 




fat 


uu 


lONC 




309 


U>X 


TSTA- I 




703 


BEO 


RT1 


jffatour "* ~ v si e>sc aourca da Janijuaar nulla-. 


SOT 


JSR 


PPfJTAX 


•Afiiehm l'mdrmmmm <*• J '••pr*»»I«- rmr rn-fV+m- - 


203 


LDA 


HVIBITT 




309 


IDA 






204 


STA 


TSTA'l 


,'InitiaJiaatlon 


30t 


CRT 


tip 




205 


LDA 


MDEBUT'l 


,*avac Jaa paraaatraa 


310 


BEG 


CP 


;Saui a CP a'll a'atizt d'une racnerche aaaolre 


206 


STA 


TSTA'2 


;de!lnis par i ' u 1 1 1 : sa : m jt . 


311 


LDA 


IPS 




207 


LDA 


HF1N 




313 


LDX 


l>PS 




208 


STA 


F INT ST' J 




312 


JSR 


AFFICHE 


:Attich9 'P.S 1 at *5>J'. 


209 


LDA 


MFIN*t 




314 


IDA 


113 




210 


STA 


FINTST*8 




315 


STA 


CB 


.-Place ie curaeur en colonne 13. 


211 


JSR 


TEST 


,-Sauc a la rouiint da comparaiioc d'ectasa. 


316 


IDA 


RNPST 




212 MTl 


JHP 


BEGIN 




317 


JSR 


PRBYTE 


,-AffJch* Je nuaero da Ja p£a:e. 


213 • 








ill 


LDA 


lit 












319 


STA 


CM 


/Place anauite ie curaeur an coJonne 23. 


213 ' 








330 


SEV 






216 JOBS 


CPX 


IB 


■ ROUTINE DE RECHERCHE SUP LA DISQUETTE • 


321 


IDA 


ISBF 


!Aor*999 jiauea ay JCaaa atezavr Ja par rhts. 


tXT 


BCS 


JOB* 


,-SauL a JOBH ml opLieo o 3. 


333 


SBC 


TSTA-I 


fCalcMla »i 


31B 


IDA 


LONC 




393 


JSJt 


tPStEX 


.mtXi^km J* niiaaia du aactaur. 


319 


BEQ 


RT3 


r cmtour msnu mi ~npr mamem nwii*. 


33 4 CP 


JS* 


CPOIST 


iSmutm »a Jiaae. 


220 


LDA 


ndrive 




33S 


INC 


JWfl 




191 


STA 


RHflRV 


.* Tnitia Jiaacioo 


316 


LDA 


TOtfR 




233 


LDA 


PDER1TT 


;daa raurinai BVTX mr TP.ST 


337 


CMP 


17? 




223 


STA 


RNPST 


smvme Jaa paraMtrti 


338 


REG 


QUr-S7 


;Qui. aaac a CffST. 


224 


Loy 


10 


idmtxnim par 1 'util imazmnr. 


329 INCR 


INC 


TSTA'l 


.'Ieereaance ia nartia boaae da 1 'adz dm teat. 


225 


srr 


RHVLPt 




330 


BNE 


TI 


fmt eaute a Tl mi la reaultat r. 'eat paa eul. 


326 


STY 


RH3UF 




331 INCR2 


INC 


TSTA'2 


:lrcrmmantm la pmrtim naute de J 'adr da teat. 


337 


STY 


TSTA'l 




332 


IDA 


TSTA*2 




22B 


STY 


FINTST*1 




333 


CNP 


IS 95 


;JbMea-noua dona la buffer EXPRESS? 


213 


INY 






334 


BBC 


INCPJ 


;0li, on passe a I 'adreaae auivance> 


230 


STY 


RNREAD 


;RHTS an aod* Jactara. 


335 


CNP 


ISCO 


,-Soaaea-coua dana lea E/S 1 SC000 . . SCOFF l ? 


231 


LDA 


1580 


,'Adresaa Aauta du bvttmr da -data BNTS. 


336 


BEQ 


INCPJ 


iOui, on pease a I'adirmmmm auivanre. 


233 


4TA 


KHBur+1 




337 TJ 


IDA 


TSTA* I 




333 


LDA 


§4f0 


tAarmssm ftauta da fja da ia raccarcAa. 


339 UNI ST 


CM3> 


MOD 


,-6»e-ee Ja rin am ia aone a tascar? 


334 


STA 


riHTST'B 




339 


BNE 


TSTT 




23S 


JHP 


VPSPBT 




340 


LDA 


TSTA* I 




33t DISK 


IDA 


ISP 


rNummco <*u Jar aactaur a iic<a. 


341 


CMP 


1300 




237 


STA 


RNSCT 




349 


BNZ 


TSTY 


/Man, an cantioua 1mm co-peo-aiaaoi* . 


J IS BRAD 


.KR 


nx-Rtrrs 


.'Lact ur* d'lra Mcctur. 


343 


LDA 


roup 




239 


JSP 


RNTS 




344 


BSC 


RTS 


.•Hoe, Mtflji au e;pjr«»»< pr :«-:pt! 


240 


BCS 


ERR 


;.-:jr::.*-»-: a £RIT en caa d'anaaalla. 


343 0OEST 


IDA 


1KB liC MX 


rAffiehm 'M-NONITEUR 


241 


INC 


RHBuT*l 


Ineramancocjon d.- bvttmr dm iacEure. 


344 


LDX 


l>KBDCHX 




242 


DEC 


RNSCT 


,*Pacra«iantaii(>n tf« nvftvre da sactcvr a X;ra. 


347 


JSP. 


AFFICHE 




243 


BPL 


READ 


jSaut aJ Jactura pista pau ancore tmminam. 


349 


JSR 


RDKEY 


,-iacture d'une eouche. 


244 


LDA 


ISBO 


;Adraaam hauca du buffer da data RKTS. 


349 


CNP 


I'M' 


; Eat -cm un H ? 


245 


STA 


TSTA* 2 




350 


fl.VE 


T2 




246 


STA 


RNBUFtl 




351 


JNP 


JOBH 


aauc a la routine aonjEaur. 


317 


JSP. 


TEST 


jSavt a la routine de eoaperaiaon d'ocEet*. 


352 T2 


CMP 


IS9B 


,-£ac-ca la toucne WCAPE 7 


34* 


LDA 


5C00O 


;A-t-on oppvym fur uaa touena? 


353 


BNE 


COST 


.-Mom, aauc a COW pour -=r: ;-,«.-. 


349 


BPL 


INCP&I 


/Nob, on pamam a ia piatm aujvaaea. 


354 


PLA 


/ooj, on annula l ademssa am rmcour. 


230 


an 


sco i a 




333 


PLA 






331 


CUP 


IS >B 


iS'Ll m'mgtX dm tm touchm BSCAPS, 


338 


JKF 


BEGIN 


,-ei on ae reorsJicne au depart. 


3S3 


aso 


PT3 


,-on (aMVOM a« atpv ( 


3S9 COST 


LDA 


TVVfi 




363 IUCPsT 


INC 


RHPST 


/lASMMataciee nvmmro da plmtm . 


3S9 


CUT 


133 




9S4 VBFP.CT 


LDA 


PPIN 




399 


BNE 


RTS 


/Out, recour au progrmmmm princlpml . 


353 


CMP 


RNPST 


/Tatif-U lire d'autxaa pimtmm? 


360 


LDA 


10 


.-Non. 11 rmmtm aneora o*«a Offan a teaser. 


256 


BCS 


DISK 


.•Oui. aaue a Dlftf. 


1*1 


STA 


mi* 




257 


JHP 


BEGIN 


:Non. on ratourne au aanu. 


362 


JMP 


INCR 


:alora. on continue lea coaiparaiaoos. 


258 ERR 


JSR 


HOME 




363 H73 


RTS 






259 


LDA 


IIOEPP 


/Aftichaqa d'vn ataaaaga d'erreur. 


364 • 








260 


LDX 


t>10ERR 












261 


JSR 


AFT ICHE 




366 * 








262 


JSR 


RDKEY 


iLmetvrm d'uoe taucAe, 


367 MENU 


IDA 


10 


■ ROUTINE O'AFFICHACS DU NENV ' 


263 RT2 


JHP 


BEGIN 


•pvif au aianut 


369 


STA 


CH 


;0b plac* la cuxaaur a gaucht 


261 • 








369 


JSP 


TABV 


;mt en naut da 1 'ecran. 










370 


LDX 


110 




266 ' 








371 


JSM 


BLANK 




397 JOBH 


CPX 


19 


• wtr/jft* it Arret, uu mjax nonitevr • 


373 


IDA 


9AFFXENU 


;pata on attichm ia aeou. 
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171 


tnr 






374 


JSP 


AFFICHE 




3 75 


LDA 


013 






1 In 


CH 




377 


IPS 


~ CPAS 




J'B 








3^3 


LDA 


IS 


:AIFICHAGE DES PARAMETRES ADPESSES IT PISTES 


J all 


'CO 


TAB V 


jLm curseur est place sur ia lignm 5. 


IB I 

JO I 


LDX 


10 




382 


LDY 


135 




'101 tyr\T t t n 
Jo J 'JULLAH 


STY 


CB 


.-Initialiaatiori horizontal* dm curMur. 


JB4 


LDA 


9"5" 




JUS 


JHH 


CUUT 


sAirich&g* d'uti S. 


360 


£PX 


11 




387 


BC3 


TWO 


; ia u : si je patammztm ae compotta qvm t carte; . 


J8B 


IDA 


mdebitt - 1 , x 




ISO 


. r SP 


PPBTT E 


,-AEtiehm 3 MHItHlM. 




IflA 


MTiFHrrr. y 




391 


JSP 


PP3YTE 


;Aftirzhm 3 «?«r*r?er»e. 


392 


JSP 


CROVT 


:mt sauce una lig-ne. 


TBI 

J J J 


In A 






394 


tNX 






395 


CPX 


44 




396 


BCC 


DOLLAR 


,-Sflu* jj j* Jeao psraaotrt pa* tne-exe s/fJcft*. 


397 


LDY 


137 




390 


CPX 


IB 




399 


BCC 


DOLLAR 


.'&vt «J Je 'cf paraaetce pas on care af/icne. 


400 








401 


LDA 


MORI VZ 


, Af f /(-nAt>a £/u nVrlttiU til, —LL.&UP tn SoMVILti 


10 J 


OKA 


tsttu 




103 


STA 


36CF 




404 








4 OS 


ldy 


LONG 


, AFFICHAOE OE L' EXPRESSION SOURCE 


10C 


OEQ 


CUPS 


. Sout a CURS si e-apieeaiwn uV iunuweux UbJJe. 


407 


cpy 


412 


i -pr- " . a- < I? -•:!«' 1 " 


'M 


BCC 


INF 


•Out, en saute a INF. 


409 


LDY 


111 


.•Hen, an i lent a J 'iffie* aux II praeiere ertiSir 


4 1 rfff 


STY 


It! 




f ll 


IDA 


115 




412 


JSP 


TABV 


,*On dace la eurteur fur la .'.31a 15. 


413 


LDA 


11 1 




414 


SEC 






41$ 


SBC 


1C 




41S 


SBC 


LC 


jseloF. la lor.guttiT dv I 'expfa-ssion. 


117 


SBC 






41$ 


STA 


CH 


r la position hoziMoticala c/u ^ufs#u£r* 


1 » J 


1 nv 


WO 




4 JO ENCOR 


LDA 


MILD, X 


yUabut d'aiCichago d'un octal "■ -ssjern. 


421 


PHA 






422 


BHI 


PI 


;Saue a PI »j J« Jar c«r«ct d* /'octet <> 


123 


LDA 






l" 


iXSJf 




.'Alticht lm slqno * . 




JMF 


1*2 




iff pi 


IDA 


EXPRESS, X 




ej» 


LsP 






an 


IS* 






$9 


LSD 






430 


Ud) 






131 


JSR 


PBHVX 


•A£ticti*gm eTu lee caraceece. 


4 3} P) 


PLA 









StfK 






<J* 


BCC 


P3 


fdbWt e PJ mi Em caxacL dm 1 'octet ' 


4J5 


LOA 






JJlE 


JSP 


COOT 


;Affleh9 la f jgnr — . 


4J7 


JMP 


B4 






U>A 


EXPRESS, X 




Oji 


JSft 


PPHEX 


lAffickaoo du 3mmm caraxtmrm. 


«0 P1 


ZH*C 


CH 


;Sauta an atDace. 


441 


wx 






443 


DEY 






443 


arts 


EfKOR 


:Saut Mi l'afiick dm 1'mxpr n'csc pas termlne- 


444 CUPS 


LDA 


935 




445 


STA 


CS 


.-Place Ja eursauj- an baa ofu aanu. 


44S 


JKP 


TABVBAS 


,'puii rttour via 1* B7S dm TABVBAS. 


44/ * 
















419 • 








ISO AFF1CHS 


STA 


SCRAN- 1 


• ROUTINE D'ATFICHAOE SUP I'SCRAN • 


1S1 


STJt 


ECRAN'J 


lA at X oiontienneat J'adraase du ams&Btfe. 


4S9 


LDX 


to 




153 EC RAN 


U)A 


SFFFF. If 


fChme^mmmnt d'un raraecere- » if/icAfr. 


4S4 


BPL 


DKfUJIEP 


tSt bit 7-0. H e'aoir rfii Herniar emractmrm. 


455 


CMP 


■ 




456 


3NE 






457 


JSP 


CUtEQL 


-Si e'ut una vtrgvl* on efface la tin dm ligom 


458 


LDA 


fS8D 


:»t on chargm I'aeeu po'jt un aatrt da Jipne. 


459 NGN 


JSP 


CCVT 


ihtSiehagm du catactmrm. 


460 


1NX 






in 


JMP 


ECPAJi 




1%2 DERM SB 


OPA 


IS BO 




1€3 


J SK 


com 


!L* aerniar coraet mat affiche an moda normal. 


161 


IHX 






its 


JHF 


CLREOL 


/la tin dm iignm mftacem, puis RTS via CLKcC/L. 


144 • 








1(0 * 








469 CCtifNTT 


MKX 


nOOCFFFFQ-OOUlOO 


470 








471 JOB 


ASC 


"AZPFDERSMQ " 


172 








473 AFFMENW 


OCX 


-~ PSCHEffCHE D'OCTETS -, , ' 


474 


ASC 


•fPATPICX COVAPXI,,,- 


475 


ASC 


'A - NEMO; RE DEBUT, , ~ 


476 


ASC 


'Z - HEHOIPS FTN, . ■ 


471 


ASC 


•P - PISTE 


DEBVr, , ■ 


17a 


ASC 


~F - P1STFA 


tin, , • 


419 


ASC 


•D ~ DRIV£ 


tt 


480 


ASC 


-E - EXP., 




481 


ASC 


"R ~ REGH 


MEMOIRS, , - 


483 


ASC 


•S BECll 


DISQ'JVTTE. , ' 


483 


ASC 


•M ~ - 7- . ■ 


101 


DC! 


*0 - QUITTER V07PE CROIX, • 


IBS 








4B6 PS 


DCI 


P.S 


S.S" 


487 








4BB 3X3DCHX 


OCT 


•,M-HCNITSXJP SP-CONTINVEP BSC-MENU " 


4B9 








490 10EPJI 


HEX 


87 




481 


OCT 


•ANOMALiE 


LECTURE DISQUETTE, , TAPE2 UNE TQUCHE ' 


492 TABVBAS 


LDA 


fS17 




493 


JHP- 


SFB5B 





Recapitulation 
'RECHERCHE' 



Apres avoir saisi cc code sous 
rnoniteur, vous le sauvegarderez par : 
BSAVE REaiERCIIEA$9000.L$4Al 



9000 :A2 


07 


BD 


46 


93 


95 


00 


CA 


9008:10 


F8 


A9 


4C 


8D 


F5 


03 


8D 


901 ; F9 


03 


AO 


OA 


QD 


F6 


03 


8D 


9018 :F9 


03 


A9 


90 


80 


Fl 


03 


8D 


902 : FA 


03 


20 


7D 


92 


20 


oc 


FD 


9028 :A2 


09 


DD 


4E 


93 


FO 


09 


CA 


9030:10 


FB 


20 


3A 


FF 


4C 


25 


90 


9038 :8A 


OA 


85 


08 


E0 


04 


BO 


3F. 


9040: 69 


05 


20 


5B 


FB 


AS 


14 


85 


9048:24 


A9 


A4 


85 


33 


20 


6A 


FD 


9050:20 


C7 


FF 


20 


A7 


FF 


88 


FO 


9058 :B1 


A6 


08 


F.O 


04 


90 


OC 


AS 


9060 :3E 


CS 


23 


90 


14 


20 


3A 


tr 


9068: AC 


OA 


90 


A5 


3F 


C9 


95 


FO 


9070 :F4 


C9 


CO 


F0 


FO 


95 


01 


Ab 


9078 :3F. 


95 


00 


4C 


OA 


90 


E0 


05 


3oao:BO 


12 


C6 


05 


DU 


04 


A9 


02 



9088:85 


05 


A5 


05 


09 


BO 


8D 


CF 


9090: US 


4C 


25 


90 


E0 


06 


BO 


7A 


9098-.A9 


OF 


20 


5B 


FB 


A9 


08 


85 


9UA0:24 


20 


9C 


FC 


20 


€F 


FD 


CA 


90A8:30 


2C 


A2 


00 


AO 


00 


A9 


02 


90B0:85 


09 


A9 


00 


9D 


00 


95 


A9 


90B8:FF 


9D 


00 


96 


B9 


00 


02 


C8 


90C0:C9 


AO 


FO 


F8 


C9 


BD 


FO 


ID 


90C9:49 


BO 


C9 


OA 


00 


OB 


69 


88 


90D0:C9 


FA 


BO 


05 


86 


07 


4C 


OA 


90D8;90 


20 


OF 


C6 


09 


FO 


1C 


9D 


90ED:00 


95 


4C 


BC 


90 


C6 


09 


FO 


90E8:0G 


A9 


OF 


9D 


00 


96 


4C 


BC 


90F0-.9O 


BD 


00 


96 


29 


FO 


9D 


00 


90F8:96 A9 


00 


48 


BD 


00 


95 


OA 


91 00: OA 


OA 


OA 


9D 


00 


95 


68 


18 


9108 :7D 


00 


95 


9D 


00 


95 


E8 


4C 


9110:AF. 


90 


F.O 


07 


BO 


IE AS 


07 


9118 :F0 


1 7 


A5 


00 


8D 


DD 


91 


A5 


9120:01 


8D 


DE 


91 


A5 


02 


8D 


47 


9128:92 


A5 


03 


HD 


4E 


92 


20 


D6 


91 30 : 91 


4C 


OA 


90 


E0 


08 


BO 


76 


91 38: AS 


07 


FO 


6F 


Ab 


05 


BD 


EA 


9140-.B7 


A5 


04 


8D 


EC 


B7 


AO 


00 


9148 :8C 


EB 


B? 


8C 


TO 


B? 


8C 


DD 



9150:91 8C 4 7 92 CS 8C F4 57 
915B;A9 80 8D Fl 37 A9 90 8D 
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9200:F9 AS 08 C9 OC FO IE A9 
9208:33 A2 94 20 20 93 A9 0D 
9210:85 24 AD EC B? 20 DA FD 
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Apple & Minitel : 

les caracteres semi-graphiques 



L'eeriture d'un logiciel destine au 
Minitel passe presque invariable- 
ment par l'exploitation des 
caracteres semi-graphiques ; nous 
vous proposons done une table 
des codes de ces derniers. 

Chaque caractere semi-graphique 
videotex est content! dans une 
matrice de 8 points (horizontale- 
ment) par 10 points (verticale 
ment) et est divise en 6 'paves' 
61ementaires. L'etat 'on' ou 
'off - des paves est determine 
par la valeur des bits 0, 1, 2, 3, 4 
et 6 du code de caractere. Ainsi, 
coinrne le montre le schema 
ci-joint, le bit determine l'etat 
du bloc situd en haut et & gauche, 
le bit 1 determine l'6tat du bloc 
situe en haut et & droite, etc. 

Pour passer en mode semi- 
graphique, le Minitel attend le 
code $0E (14). Le mode 4 dis- 
joint\ ou les blocs elementaires 
soni s<5par£s par une ligne, est 
obtenu en envoyant les codes 



$1B et S5A (27 et 90). SIB et 
$59 (27 ct 89) rctournc au mode 
4 joint\ Enfin, le code ${)F (15) 
permet de repasser en mode 
normal 'texte'. 



130 121 122 (25 121 125 (26 127 
I2R $29 $2fl $28 $2C I2D $2F $?f 

□enncenr 

$30 151 132 133 154 135 136 137 
15B 139 13H 13B 13C 130 131 13F 
160 161 162 163 164 165 1Gb (6/ 

laanasai 

168 169 (6B (61 1*C 160 (6t W 

= LLC 

170 $71 17? $73 S74 S75 S76> (77 
$7B 179 J7B I7i 17C 170 171 gsfj 



Jeo de caracteres Telelel joints 



Code du caractere 
7 6 5 4 3 2 1 
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Conversions Alexandre Avrane 

HGR o DHGR 



Qu'il est agrdablc dc pouvoir 
disposer du graphisme double 
haute resolution (DHGR) dispo- 
nible sur les Apple //c et //e 
equipes d'au moins 128K ! 

Encore faut-il pouvoir Tutiliser & 
sa guise : en effet, seuls quelques 
logiciels (par exemple Dazzle 
Draw ou Extasie) permettent de 
manipuler le DHGR. 

Malheureusement, ce sont des 
programmes fermes er on peut 
etre amene face a deux types de 
problemes : 

• vouloir imprimer l'imagecreee 
sur une configuration impri- 
mante/interface qui n'a pas ete 
prevue ; 

■ desirer utiliser la souplesse 
d'un langage de program- 
mat ion (par exemple 
r Applesoft) pour generer des 
sequences nfpetitives ; 

• utiliser les fonctions puissantes 
des 6diteurs HGR traditionnels 
(tels que MousePaint ou 
Blazing Paddles) sur une 
image DHGR. 

Les images DHGR correspondent 
a une definition de 560 fois 192 
points, alors qu'une image HGR 
standard en contient 280 fois 
192. Elles sont stockees sur 
disque, par les editeurs 
graphiques, comme des fichiers 
debutant a l'adiesse $2000 



jusqu'en $5FFF. 

Ncanmoins, elles nc pcuvent ctrc 
manipul£es sans modification par 
votre routine preferee d'impres- 
sion ou votre programme 
Applesoft car, aprfcs un BLOAD, 
la page HGR ne contient que les 
octets pairs de l'image pendant 
que la page HGR2 contient tous 
les octets impairs. 

Pour vous en assurer essayez la 
sequence suivante ; 

HGR 

BLOAD IMAGE, A$2000 
CALL -151 

C055 pour afficher la page 
HGR2 

C054 pour retourner en page 
HGR 

3dog pour revenir au Basic 

Le resultat affich£ n'a genera- 
lemenc qu'une ressemblance fort 
vague avec l'image que vous avez 
si patiemment construite avec, par 
exemple, Dazzle Draw. . . 

II serait done de bon ton de 
pouvoir disposer d'une routine 
qui convertisse le resultat pour 
afficher la panie gauche en page 
HGR et la partie droite en page 
HGR2. Ces deux parties 
pourraient alors etre imprimees, 
manipulfies a votre guise par un 
programme Applesoft, ou 
sauvegarder sur disque pour etre 
modifiees par un editeur HGR 



traditionnel. Par la suite, il 
suffirait de recoller les deux 
parties pour obtcnir k nouvcau 
une image DHGR. 

Coup de chance, le module 
DHGR effecrue cene conversion ! 
C'est une routine (sans grande 
pretention) qui, charg^e en 
$8000, contient deux points 
d'entree : 

CALL 32768 ($8000) 

converat le fichier charge en deux 
images gauche/droite placees en 
HGR et HGR2, c'est a dire 

BSAVE IMAGE1, A$2000,L$2000 
BSAVE IMAGE2, AS 4000 ,L$ 2000 

CALL 32771 ($8003) 

effectue la conversion inverse 
afin de sauver le resultat sur 
disque, par 

BSAVE IMAGE, A$2000, L$4000 

et sa recuperation ulterieure par 
votre editeur graphique. 

DHGR est independant du 
systeme d'exploitation et pourra 
sans difficulte etre utilise sous 
DOS 3.3, ProDOS ou Pascal. 

Le fichier T.DHGR contient le 
source en Big Mac au format tex- 
te ; le programme DHGR. DEMO 
illustre son utilisation en 
Applesoft. 

a 



Programme 
'DHGR. DEMO' 



100 REM DHGR. DEMO 
110 : 
120 s 

130 REM Demo a" utilisation de 
140 REM DUCR 
150 : 




ISO 1 1 

200 D$ = CHR$ (4):F$ = "DHGR" 

210 REM paaoe en graphique 

220 UGR2 : HGR r PRINT CHR$ {27) CHR$ ( 

17) : REM Esc-Ctrl-Q 
230 REM si on voulait charger une image 



239 GOTO 250 

240 PRINT D$ "BLOAD"F$" .PIC,A$2000" 

250 REM charge la routine 

260 PRINT D$ "BLOAD "F$ : REM A$O0OO 

265 VTAB 20: PRINT : PRINT "Image charge 

e"; G03UD 1000 
270 REM convertit en 2 images exploitabl 

G3 

280 CALL 32768 

290 PRINT "Image convtsrtie au format IJGR 

": GOSUB 1000 
300 REM on va tracer un "X" sur 1 'image 
310 HCOLOR- 3: REM blanc 

315 REM surtout ne pas oublier d'initi 

316 REM 1 'adresse 230 sinon gros bobo. . . 
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11 



320 POKE 230,32: REM travalllt? sur WW 7 
3'JU HVLOT 0,0 TO 279,95: HP LOT 279,96 TO 
0,191 

340 POKE 230,64: REM travaille sur HGR2 
350 SJPLOT 0,96 TO 219,191: HPT.OT 0,95 TO 
279, 

360 PRINT "Image t&rminSe" t GOSUR 1000 
400 REM reconvertit au format DHGR 
410 CALL 32771 

412 PRINT "Image reconvert!*! au format D 

HCR": GOSUB 1000 
415 END 

420 PF.M at si on voulait sauver 2 'image 
430 PRINT D$"BSAVE "F$ " , PIC, A$2 000, L$4000 

440 REM mette L$4O0O et non L$3FFQ pour 
450 REM certains utilitalres DHGR 
4 60 END 

1000 REM Routine cT affichage 

1010 PRINT "<l>/<2> affiche I1GR1/HGR2" : 

PRINT "<Return> continue "; 
1020 GET K$i IF K$ - "1" THEN K - PEEK 

(49236) : REM $C054 
1030 IF K$ - "2" THEN K * PEEK (49237): 
REM SCO 55 

1040 IF ASC (K$) - -*J THEN PRINT : RET 
URN 

1050 GOTO 1020 



Source 'T.DHGR' 

Assembleur Big Mac, format TEXT 



' CONVERSION DHGR/ 2 HGR ' 



DOS 3.3 
ProDOS 



5 * Cette routine convertit des images DHGR 

6 * stack&es &n un firhifr hlnaire nhargA an 

7 ' $2000 jusq~u'cn $5FFF, cn doux images 

8 ' yidyhlquu* (paiLlex yaucha & droits) 

9 * stocK&es en HGR et HGR2. 

10 * 

11 * Deux points d'entr&e: 

12 * CONVERT1 fSRODO) pnur rnnvprxi on DHGR -> HGR+HGR2 

13 ' CONVERTS ($8003) pour conversion HGR+HGR2 -> DHGR 

14 

15 « Modi fie: 21/12/96 

16 ' Cree: 19/12/86 

17 ' (C) 1986 Alexandre hvrane 

18 ■ 



10 GDASL 

20 HP AG 

21 HPVSN - 

22 

23 CONVERTl - 

24 CLC 

25 BCC 
2G C0NVERT2 - 
21 SEC 

28 CONV*0 PHP 

29 IDA 
10 STA 

31 IDA 

32 ST A 
33 



$2 6 
SE6 
$F411 



CONV*0 



*>S200O 
HPAG 

to 

VI 



Entree DHGR -> 2 HGR 
=jmp 

Entrtfe 2 11GR -> DUGR 
sauve ca.rry 
pagf* tjraphiqur* 
I6re lig-ne 



34 C0NV"1 


IDA 


VI 




35 


CMP 


t 1 9? 


derniere Ji-ffne ? 


36 


BCS 


CONVX 


oui 1 


37 


LDX 


to 




JU 


wr 


to 




39 


JSR 


HPOSN 


calcule GBASL 


40 


PIP 






41 


PHP 






42 


BCS 


CONV1A 


si Convort2 


43 


JSR 


C0NV"2A 




44 


JSR 


CONV~2B 




45 


BUS 


COW* IB 


*1mp 


4 6 CQW1R 


JSR 


C0NV2B 




47 


JSR 


C0NV*2A 




48 row in 


TUC 


VJ 


ligne suivante 


49 


BNE 


CQNV*1 


=jmp 


30 CONV'X 


PLP 






31 


HTS 




bye bye 


52 








53 * 









54 








55 C0NV2A 


LDY 


9 40-1 


40 colonnf>-v pur page HGR 


56 


LDX 


/SO -2 


80 colonnes par pago DHCR 


57 C0NV"2 


JSR 


5 WAP 


HGR2 


53 


JSR 


C0NV I% 2C 


aliment e nenline 


59 


DEX 






60 


JSR 


SWAP 


HGR1 


61 


JSR 


C0NV A 2C 




62 


DEX 






63 


DEY 






64 


3PL 


CONV2 




65 


RTS 






66 








67 ' 








55 








69 C0NV2B 


LDX 


teo-i 




10 


JSR 


SWAP 


HGR2 


71 


JSR 


CONV"3 


vide NEW LINE vers HGR 2 


72 


JSR 


SNAP 


HGR1 


73 


JSR 


C0NV*3 


vide NEHLINE vers HGRl 


74 


RTS 






75 








/6 








77 









7B C01iV*2C 

79 

30 

SI 

82 
83 
94 
85 

fffi * 

87 

88 ZGNV3 
«9 C0NV*4 
90 
91 
92 
93 
94 
95 
96 



98 
99 

:oo 

101 
102 

:o3 



IDA 
PHA 
IDA 
STA 

PLA 
STA 
RTS 



LDY 
JSR 
DEX 
DEY 
BPL 
RTS 



(GBASL), Y 

HEWL1NE,X 
f GBASL} , y 

NEWLTNEsX echanoe NENLINE et paoe HGR 



t40-l 

C0NV"2C 



CONV*4 



SWAP 


LDA 




EOH 




STA 




RTS 


VI 


DS 


SENLINE 


OS 



CBASL+1 

t$60 

UUASL*1 



1 

uu 



tchange vectcurs HCR1 £ HCR2 



R6capitulation 
'DHGR' 

Apr6s avoir saisi go coda sous 
moniieur, vous le sauvegarderoz 
par BSAVEDHGR, 
A$6000,L$C9 



8000:18 90 01 38 08 A9 20 85 
8nri8;E6 A9 00 8D 78 80 AD 78 
8010:80 C9 CO BO IE A2 00 AO 
0018:00 20 11 F4 28 08 BO 08 
8020:20 35 80 20 4B 80 30 06 
8028:20 4B 80 20 35 80 EE 78 
3030:30 DO DB 28 60 AO 27 A2 
8038; 4f 20 71 90 20 5A 80 CA 



8040:20 71 80 20 5A 80 CA 88 
8048:10 EE 60 A2 4F 20 71 80 
8050:30 67 80 20 71 80 20 67 
8058:80 60 Bl 26 48 3D 79 80 
8060:91 26 68 9D 79 80 60 AO 
8068:27 20 5A 80 CA 88 10 F9 
8O70:60 AS 27 49 *0 AS 27 60 
8Q78;A$ 82 05 3D A3 D6 35 3E 
808U:A9 83 85 3t A9 53 85 42 



8088:A9 98 85 43 AO 00 20 2C 

8090: FE AO 06 84 3C AO 83 84 

8098i3D AO D5 84 3E AO «B 84 

8QA0;3r AO 08 84 43 AO 00 84 

80A8:42 20 2C FE A9 1C 80 1A 

8080:81 A9 81 8D IB 81 20 11 

8038:81 f-9 nf> FO 06 9D 00 00 

80C0:C8 DO F3 A2 00 20 21 81 
BQL'8:8£l 
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De V octet au nibble : 
Kyram 



Gildas Menier 



Ce nouvel utilitaire n'est pas d'un 
usage evident en premiere 
approche ; garder le manuel du 
DOS 3.3 a portee de la main est 
une sage precaution. Cest dans 
un esprit d'utilisation pratique 
que le mode d'emploi qui suit est 
base sur I'exemple. 

II vous permet de lire une 
disquette dont le formatage est 
fantaisiste, de savoir quel 
formatage a 6te utilise, de 
proteger vos disquettes. . . 

Pour lancer KYRAM , faire : 

BRUN KYRAM 

Un message du type : 

L 'AMPERSAND EST 
OPERA T IOMNEL 

doit s'afficher. 



Presentation 
generale 

Le DOS 3.3 ne permet pas 
d'utiliser ik 100 % les disquettes, 
l'utilisateur n'ayant acces au 
support magnetique que dans les 
limites de ce que le DOS 3.3 
autorise. Le catalogue DOIT etre 
en piste $11, par exemple. 
KYRAM se propose d'ajouter 
quelques commandes au Basic 
afin d'augmenter l'efficacite du 
SED (Systeme d'Exploitation de 
Disquettes), et de permettre a 
l'utilisateur d'ausculter en detail 
lc contcnu reel dc la disquette. 

Pour ajouter ces commandes, le 
programme exploite V&. Quand 
I'interpreteur rencontre ce carac- 
tere, il fait un saut a l'adresse 
contenue en S03F5, adresse de 
KYRAM, programme qui 'rendra 
la main' au Basic en fin de 
travail. 

Chaque commande est un mot de 
cinq letties precede de &, el 



eventuellement suivi d'une chaine 
ou d'une variable alphanumerique 
(AS ou "TQTO" par exemple). 
Toutefois, si vous optcz pour la 
solution variable alphanummque, 
il est bon que l'ordre soit precede 
d'une affectation de type A$=A$, 
ceci afin de preparer les routines 
Applesoft utilisees par le pro- 
gramme. 

Note. : il est utile d'essayer les 
commandes qui suivent an fur et 
d mesure de teiir description. 

Commandes 
generates 

Ces commandes donaent des 
renseignements concernant le 
fonccionnement de KYRAM, les 
parametres internes du DOS... II 
s'agit de &QUID!, &DIAGN, 
&COMMS ct &LRWTS. 

&QUTD! 

Si vous tapez cette commande, 
puis CALL-151 et 320.400, 
divers nombres hexadecirnaux 
apparaitront, nombres qui repre- 
sentent les prologues et epilogues 
des champs adresse et donn£es. 

&DIAGN (DIAGNostique) 
Normalement, le message : 

* KYRAM * PAS D'ERREUR A 
LA DERNIERE COMMANDE 

doit apparaitrc, vous indiquant 
que la derniere operation sur 
disquette a 616 menee ^ bien. 

&COMMS (COMMandeS) 

On demande par cet ordre la liste 
des commandes disponibles. 
Ccrtaincs commandes sont 
suivies de qui rappelle que 
des parametres doivent suivre. Si 
vous les ommettiez, vous obiien- 
driez : 



ERREUR D ' OPERANDE 

&LRWTS (Liste RWTS) 

L'6cran est efface et apparaissent 
divers mots et nombres hexade 
cimaux dont nous verrons la 
signification plus loin. 

Acces au disque 

La disquette est divisdc en 35 
pistes (en principe...), chacune 
clam divisee en 16 sccteurs. 

&SECRE (SECtor REad) 

Cet ordre permet de lire un 
secteur. Pour lire le secteur $00 
de la piste $01, il faut taper : 

&SECRE M 0001" 

Le secteur est alors lu et 6crit en 
m^moire, de l'adresse $2000 & 
l'adresse S20FF. Pour en etre 
sur, &DIAGN doit indiquer que 
tout s'est bien passe. 

&SECRE "OFll" 

commande la lecture du premier 
secteur du catalogue. 

&BUFAS 

Suite logique de la commande 
precedente, affiche sur l'6cran le 
secteur qui vient d'etre lu (un 
decalage s'affiche au d6but de 
chaque ligne). 

&SECWR (SECtor WRite) 

Pour 6crire un secteur com- 
mengant en $2000, il faut taper : 

&SECWR "OOOl" 

s'il devait etre 6crit sur le secteur 
de la piste 1 (Changez de 
disquette avant de tenter 
1'operation). 

&INITD (INIT Disquette) 
Cette commande formatera la 
disquette SANS y mettre de 



Pom's n° 29 



13 



catalogue ni de DOS. 

De l'octet au 
nibble 

Avani denture sur le disque, les 
octets composant le secteur sont 
d'abord codes en nibbles. lis sont 
k la disquette ce que les octets 

sont a la memoire. Un lecteur ne 

peut lire et ecrire que des nibbles 
et comme il y a moins de 256 
nibbles different^ el valables, un 
secteur sur le disque occupe plus 
de 256 nibbles... De plus, 
comme les pistes sont circulates 
(eh oui !), il faut bien que 
quelquc chose indiquc au lcctcur 
ou commence le secteur qu'on 
veut lire. 

Pour s£parer ses secteurs, le DOS 
3.3 utilise des blocs de nibbles (la 
plupart du temps des SFF) un peu 
spdeiaux, des nibbles synchro- 
nises. 

Pour en Ecrire un sur la disquette, 
le DOS utilise des routines dans 
lesquelles le temps d'cxecuiion 
est primordial, et il ne sera pas 
6crit exactement comme les autres 
nibbles. Ainsi, les secteurs seront 
separes. 

II faut maintenant que le lecteur 
trouve lc secteur XX sur cette 
piste : le DOS 3.3 lit les premiers 
nibbles apr£s les nibbles synchro- 
nises et il recherche une serie du 
type D5 AA 96 (ces nibbles sont 
reserves, e'est-a-dire qu'on ne 
peut pas trouver D5 dans un 
secteur code en nibbles). 

Celte stirie de trois nibbles 
constitue le prologue du champ 
adresse. Prologue parce qu'ils 
marquent le debut d'une autre 
serie qui indique, codes, le 
num6ro de volume, le numero de 
piste, le numero de secteur et, 
enfin, un 'checksum' : tout ceci 
est le champ adresse. Le 
'checksum' est une sornme de 
controle qui permet a Tordinateur 
d'etre sur que les differents 
numdros ont et6 bien lus. Si ce 
n'est pas le cas : I/O ERROR, 
apres quelques auties tentaiives 
bien entendus. 

Huit nibbles apres le prologue, 
on trouve DE AA EB, Yipilogue 



du champ adresse. Plus loin, on 
trouve D5 AA AD qui est le 
prologue du champ donnees : ici 

debute le secteur code, celui lu 

par &SECRE (ou prcsquc). 
DE AA EB ferme la marche (e'est 
l'tfpilogue du champ de donnees). 
Apres, on retrouve une serie de 
nibbles synchronises. 

&RDTRK (ReaD TRacK) 

Pour lire la piste 2 (par exemple) 
sans la decoder taper : 

&RDTRK "02" 

puis : 

CALL-151 

puis : 

2000. 3F00 ('freiner* le listing 
par CTRL-S) et relire ce qui 
precede. . . 

Pour que le DOS puisse lire un 
secteur, il faut que les valeurs des 
prologues, epilogues et autres 
'checksum' correspondent parfai- 
tement avec les valeurs D5 AA 
96. „ sinon il n'y a pas de lecture 
possible. Certains programmes 
indiquent d'ou vient l'erreur si 
erreur il y a (A : adresse, D : 
donnees). D'autres programmes 
essaient de recopier les secteurs 
meme s'il manque un AA par 
exemple. 

&MAXPI 

La recuperation de 4Ko suppl6- 
mentaires sur la disquette (exem- 
ple classique) servira d'exemple. 
Taper ; 

&MAWPI "24" 
puis : 
&LRWTS 

puis, avec une disquette vierge, 
INIT HELLO. 

Cette nouvelle disquette comporte 
$24 pistes au lieu de $23. Pour 
utiliser cette place disponible, il 
faut modifier la VTOC (table 
d'occupation du volume) ce qui 
indiquera au DOS les nouvcaux 
secteurs accessible^ (se reporter 
au manuel DOS pour 1'organisa- 
tion de la VTOC). II faut pour ce 
faire, lire la VTOC : 

SSECRE "0011" 

puis : 



CALL-151 

puis : 

20CO:FF FF 00 00 FF FF 
pour liberer la piste $24, puis : 

2030:12 01 00 00 24 
pour dire au SED qu'il peut 
compter sur une piste de plus. 
Bien sur, il con vient de revenir au 
Basic par Ctrl-C puis d'ecrire 
cette VTOC la ou on l'a trouvee : 

&3ECWR "0011" 

Idee 

Puisque e'est un octet dans la 
VTOC qui indique la position du 
catalogue, pourquoi ne pas 
transferer ce dernier sur cette 
piste $24 ? Comme la plupart des 
copieurs ne copient pas cette 
piste, un double de cette disquette 
ainsi cusiomistfe ne serait gufcre 
utilisable... 

La melhode 

• formater une disquette $24 
pistes ; 

• lire la VTOC; 

• modifier la position du 
catalogue (octet 1 et 2 de la 
yTOC, Toctet 6tant inuti- 
lis6, voir annexe C du manuel 
DOS); 

• reecrire la VTOC ; 

• lire le premier secteur du cata- 
logue en secteur OF, piste $11 
et le reecrire en Secteur $OF, 
Piste $24 ; 

• idem pour tous les autres 
secteurs de la piste (de $0E a 
$01) ; 

• ne pas oublier de proteger 
dans la VTOC la piste S24 
qui, utilisee par le catalogue, 
n'est plus disponible ; 

• liberer la piste $11, ancien 
catalogue. 

Malgre cette derniere modifica- 
tion, le DOS s'interdira d'ecrire a 
la place de l'ancien catalogue- 
Pour l'y forcer, upex ; 

&ASAUV 

avant de formater la disquette. 
L'ordre inverse, pour eviter 
d'ecrire sur la piste $11 est: 

SPSAUV. 

(slrwts vous donne entre autre 
la valeur de SAU11 : $A9 = le 



14 



Pom's n° 29 



check 

volume piste secteur sum 
I 1 f" 



i — i r 



FF FF FF FF D5 AA 96 FF FE D6 96 D6 9€ DO 96 DE AA EE 
I I I I I I 



Octets do Prologue 
synchronisation du 

champ 
adresse 



Champ adresse 



Le secteur sur la disquette 



Epilogue 

du 
champ 

adresse 



„ D5 AA AD 

I I 

Prologue 

du 
champ 
donnees 



DE AA EB FF FF FF FF 



Epilogue 

du 
champ 
donnees 



Champ donnees (secteur code en 342 
nibbles pour 250 octets t checksum) 



Les octets de synchronisation sont en fait constitute de 10 bits (2111111100). La mcthode de synchronisation 
et le detail du codage. du secteur (methode 6/2) sont decrits en detail dans Beneath Apple DOS et Beneath 
Apple ProDOS, bibles de I'Applemaniaque... 



DOS pent ecrire piste $11 ; $69 = 
il ne peut pas) 

Retaper cette liste d'ordres a 
chaque manipulation de disquette 
est fastidieux. Faites-en un 
programme Basic qu'il sufftra de 
KtJNer... 

Idee (bis) 

Vous avez 'delete' un fichier et 
vous souhaitez le recupdrer : 
operation simple s 'il n'est pas 
deja dcras£ par un autre fichier. 
Trouver d'abord le secteur du 
catalogue ou se trouve votre 
programme : taper 

&SECRE "OFll" &BUFAS 

&SECRE "0E11" SBUFAS 
&SECRE "0D11" &BUFAS 

jusqu'a apparition a I'ecran du 
nom de voire programme, 
KYRAM par exemple. 
Choisir I'offset le plus pres du 
nom : $00. Taper call - 15 1 

puis : 

2000 .2020 

rdponse : 

2000:00 00 E£ Hi 04 kk yy 
rr aa mm AO AO AQ.,.1£ 
(kk yy rr aa mm representent les 
codes ASCII dc KYRAM) 
A la fin des AO (espaces) vous 
tomberez par exemple sur 10. 
FF indique que le fichier est 
efface, 10 et 01 indiquent la piste 
et le secteur de debut du fichier. 
Remplacer FF par 10 et 10 par 



AO puis reecrire le secteur la ou 
on I'a trouve. Sauvegarder le 
fichier retrouv^ sur une autre 
disqueue ou bien le prot<£ger dans 
la VTOC. 

Pourquoi egalemcnt ne pas 
modifier les messages d'erreur du 
DOS et, par exemple, remplacer 
Tentete du catalogue (Disk 
Voluime. . .) par CTRL-D suivi de 
INK HELLO... 

Prologue, 

Epilogue, 

Kyram, 

et protection 

En tapant scomms, on constate 

que certains ordres restent 

inconnus. 

&WAPRO permet de modifier le 
prologue champ adresse dans les 
routines d'ecriture, par exemple 
swapro "D5 aa 9 6": le DOS lira 
la piste jusqu'a decouvrir cc 
prologue qui lui indique qu'un 
champ adresse suit. 

srapro (comme Read Adress 
PROlogue) fait de meme dans les 
routines de lecture. 
Quand le DOS lit un secteur, il 
cherche la valeur de RAPRO et 
quand il 6crit, celle de WAPRO. 
Idem pour &rdpro et &wdpro qui 
se rapporient au champ donnees. 
Idem pour sraefi, srdepi, 
swaepi et &DEPT qui concernent 



1'epilogue. 

Note : il ne faut pr^ciser que deux 
nibbles pour &RAEPI et RDEPI, 
le DOS ne tenant pas compte du 
troisieme. 

Par exemple ; sraepi "deaa" 
(RAEPI comme Read Adress 
EPIlogue). 

ssyncr "FF", par exemple, 
permet de changer la valeur du 
nibble de synchronisation ce qui 
perturbera sensiblement la plupart 
des copieurs... 

Un exemple 

Creer une disquette pour etudier 
ces commandes, faire : 

&WAPRO"D5B.BCC" puis 
INIT HELLO. 

Maintenant, une tentative dc 
catalog conduit a un I/O 
ERROR car le DOS cherchait 
comme prologue d'adresse D5 
AA 96 et il ne pouvait trouver que 
D5 BB CC. 

Comment lire maintenant ? En 
faisant &rapro "D5bbcc" pour 
qu'en lecture le DOS cherche le 
bon prologue. 

Vous pouvcz maintenant vous 
servir de cette disquette 
normalement, mais essayez de la 
copier. . . 

Un probleme subsiste : 
impossible de booter sur ce 
disquc new look. En effet, la 
ROM (.ft de I' Apple, solicitee 
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lors du Boot cherche obstinement 
D5 AA 96. Avant de lire cette 
disquette, il faut done charger 
Kyram et modifier les 
parametres. 

On peut de la rneme manifere 
changer prologue et Epilogue. 
Une autre idee serait de protiger 
un programme parmi d'autres : 
sur une disquette normale, 
changer le prologue donn^es de 
fagon a avoir D5 XX YY 
(ecriture) puis sauYcr yotre 
programme par bsave ou save. 
Faire alors new, & wdpro" D5 AA 
DU", &NOPRO, SAVE RIEN, 
DELETE RIEN, &TSTPR. 

&NOPRO demande an DOS 
d'ignorer XX et YY, save et 
delete rien servent a rc6crire le 
catalogue avec le prologue 



normal. 

Un essai de load ou bload du 
programme conduit a un I/O 
ERROR- Pour le relire, un 
&NOPRO est de rigueur. 

Face a une disquette 
inconnue 

La disquette refuse d'etre lue : 
Kyram devrait vous tirer 
d'affairc. Lire une piste avec 
tRDTRK, regarder les valeurs de 
prologue et d'epilogue. 
Neutraliser le controle de 
checksum par &NOCHK. Entrer les 
valeurs de prologue et d'epiloguc 
trouvees a 1'aide de srdtrk. 
Essayer un catalogue, fa marche, 
tant mieux. Sinon, il faut trouver 
le catalogue et une boucle en 



Basic utilisant asecrf, et &bufas 
rendra service pour trouver un 
secteur qui, de pres ou de loin, 
ressemble h une VTOC. . . 



En conclusion 

Benjamin Franklin disait qu'il 
faLlait pouvoir scier avec une lime 
et limer avec une scie. Kyram n'a 
peut-etre pas duplications en 
menuiserie, mais il semblc que 
ses possibilites soient tr£s 
dtendues, 1'imagination en est 
toutefois une limite. Les 
remarques et suggestions 
pourront etre transmises a 
l'auteur par rintermediaire de la 
revue. 

o 
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2 * 

3 * 
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* C.MSN1ER to? B6 



STC 



* ^PROGRAMME DE MODIFICATION DES rARAMETRBS INTERNES DO DOS 

* QUI PERMET, PAR EXEMPLE: 



L'UTILTSATION DES MEMOIRES AUXZLIAIRE (CARTE 80 COL) 
L' OT1LTSATSON DES ROUTINES RttTS. 

LA MODIFICATION DES PARAMETRES INTERNES DU DOS 
LA CREATION DE DISKETTES FORHATTEES A Vt/LUNIE 
LA SELECTORS DE tROGRAMME SOU UE2 UJSK&n&S 

ETC 



* PLAN PROGRAMME: - COPIE DU BUFFER BASIC {EN $200) DANS 



24 








UN BUFFER EN S300 


25 








RECHERCHE DU MOT DANS UNE TABLE: LES 


26 








MOTS FONT 5 LETTRES. UNE ERR EUR CONDUIT 


27 


n 






A "'KYRAM* ERREUR DE SYNTAXE . " 


28 


* 






S1NON BRANCHEMENT DIRECTEMENT AU MOT 


29 








No. COMPT. 


30 








- ON UTILISE POUR LE PASSAGE DE 


31 
32 

33 


ft 

* — ~ 






PARAMETPE, LES SP "DECODE . CONVERT . . " 


W 








34 


* 






TABLE DES SYM30LES - 


35 










36 


PASSE 


ECU 


$06 


;SERT COMME OCTET DE PASSAGE 


37 


SECONDS 


ECU 


$07 


; CONTIENT LA POSITION DE * Ho. 2 


38 


BUFFIN 


ECU 


SOB 


.-POSITION DU BUFFER DE KYRAM 


39 


VALTYP 


ECU 


$11 


.■CONTIENT If. TYPE f)K 1J, VARIABLE 


40 


vec 


ECU 


SIB 


.-SRRT pntJR LA RECHERCHE DU MOT 


41 


COMPT 


RCII 


SCR 


; CTINTJF.NT IE No . DD MOT TROUVE 


42 


SAUVl 


ECU 


SIR 


.•DIVERS 


£1 




FQIl 


$1F 


tVOVS AVEZ DIS VEPT ?f 


44 


AIL 


EQO 


$3C 


.•UTILISES PAR CERTAIN SP HQNITEUPS 


4S 


AIM 


EQU 


$30 




46 


A3V 


EQU 


S3E 




47 


ASH 


EQU 


$3F 




48 


A4L 


EQU 


$42 




49 


A 411 


EQU 


$43 




SO 










51 


3 TROUT 


ECU 


SDB3A 


.SORTIE ECRAN DU TXT POJNTE /Yt A 


52 


CHRCET 


EQU 


3BJ 




53 


PRBYTE 


EQU 


SFDDA 


.-SORTIE ECRAN DE A EN HEXA 


54 


NYSEEFi 


EQU 


3BE5A 


.'ROUTINE DOSlPOSITION DE LA TETE 



55 










56 


MOVE 


EOU 


SC363 


; COPIE DE MEMOIRS PRINC-AUX 


57 


XFF.R 


EQU 


SC3B0 


: TRANSFERT D 'EXECUTION PRINC-AUX 


SB 










.59 










60 










61 


i 
















63 










63 




ORC 


S3FFA 


.■ORICINE 


64 

cs 

66 


■* 






. . » ,- ■ 










6? 










66 




JSR 


DEBUT 


. PRESENTED VECTORISE i 'RETOUP AUX 


69 




JKP 


SD43C 


.RETOUFt AU BASIC fCMDLOOP) 


70 










71 










72 


KYRAKt 


IDA 


$400 


; SA UVEGARDE DES 2 1ER CARACTERES 


13 




ST A 


SAUVl 


tOlS L'ttCRAN 


74 




LDA 


$401 


.-POUR AFF1CHER 'Kf 


75 




STA 


SAUV2 




76 




LDA 


9 'K' 


;ON AFF1CHE 'KY' 


77 




STA 


S400 




78 




LDA 


9 'Y' 




79 




STA 


$401 




80 










81 




JSR 


CETL1NE 


; COPIE DU BUFFER $200 EN BUFFIN 


82 




JSR 


LOOPPRIN 


.•RECHERCHE DU MOT 


83 










84 




LDA 


SAUVl 


.'ON REMET LES 2 CARACTERES ECRAN 


as 




STA 


$400 




86 




LDA 


SAUV2 


;LA OU ON LES A TROUVE. 


87 




STA 


$401 




BR 










89 










90 


TEST 


LDA 


tCrthWANDF 


:ON INITIALISE 1JZ DEBUT DE LA 


91 




STA 


$1A 


;L1STV. /IPC r.rmANDFS 


93 




LDA 


/COMMANDS 


.-POUR SAUTEP EN INDIRECT 


93 




STA 


SIB 




94 










35 




LDA 


COMPT 


i No . DE COMMANDS 


96 




CMP 


940 


;MAXI 


97 




BCS 


NON 


;PAS VAL1DE: SN ERROR 


98 










99 




ASL 




;A*2 


100 




CLC 






101 




ADC 


COMPT 


;A'3 


102 




CLC 






103 




ADC 


S1A 


. ON PREPARE LE SAUT / No. 


104 




BNE 


PASADJ 


fSX > 255 ON AJUSTE LE TIR 


I OS 




INC 


SIB 


; A DRESSE HAUTE 


JOfi 


PASAD.T 


STA 


$1A 




107 










108 










109 




JMP 


($1AJ 


;OH XAWT A IA C€V44ANDF. 


110 










111 


WOW 


JMP 


ERROR 


. SN ERROR 


112 











Pom's n 8 29 



Les commandes de Kyram 

- passage de para metres 
L lecture 
E ecriture 

les examples sont les valeurs normales des parametres 



DOS 3.3 



i 

L 
L 
L 

E - 
E - 
E - 
E - 
L - 
L - 
L - 
L - 
E 

E - 
E - 



&COMMS 

&LRWTS 

&CHKSU 

&NOCUK 

&TSTPR 

&NOPRO 

&WAPRO 

&WDPRO 

&WAEPI 

&WDEP1 

&RAPRO 

&RDPRO 

&RAEP1 

&RDLP1 

&SYNCR 

&MAXPI 

&MAXSE 



EE- &VTSET 



E 
E 

L - 



E - 
E - 
E 



&ASAUV 

&PSAUV 

&QU1D! 

&RDTRK 

&RESET 

&NRESE 

&SECRE 

&SECWR 

&1NITD 

&BUFAS 

&DIAGN 

&KYRAM 

&AMOVE 



- &PMOVC 

&AEXEC 
&PEXEC 
&RETPR 
&RETAU 



ufficht la liste des commandes 
affiche les parametres modifiables du DOS 
provoque le controls du checksum en lecture (CHKSUM = 01) 
rend inoperant ce test (CHKSUM = 00) 

provoque le test des 2 derniers nibbles du prologue DATA lecture 

ne teste que le premier nibble du prologue DATA lecture 

modifie le prologue adresse ecriture : &WAPRO "D5AA96" 

modifie prologue DATA ecriture : &WDPRO "D5AAAD" 

modifie epilogue adresse ecriture : &WAEPI "DEAAEB" 

modifie epilogue DATA ecriture : &WDEPI "DEAAEB" 

modifie le prologue adresse lecture : &RAPRO "D5AA96" 

modifie le prologue DATA lecture : &RDPRO "D5AAAD" 

modifie le prologue adresse lecture : &RAEPI "DEAA" 

modifie le prologue DATA lecture : &RDEPI "DEAA" 

modifie le nibble synchro formatage : &SYNCR "FT" 

nb maxi de pistes formatees : &MAXPI "23 " 

nb maxi de secteurs formatees : &MAXSE "OF" 

position de VTOC : &VTSET "1100" ("ppss") 

permet I 'ecriture sur la piste $11 SAUll vaut AS 

I'empeche SAUll vaut 69 

en $320 : prologues, epilogues, sync, VTOC 

lit la piste de $2000 a $3F00 : &RDTRK "01 " 

Ctrl-Reset = Boot 

Ctrl-Reset * Boot 

lit un secteur &SECRE "0001" ("sspp") resultat en $2000 

ecril un secteur &SECWR "0001" ("sspp") ecriture de $2000 

formate le disque sans DOS ni VTOC ni catalogue 

affiche $FF caractcres en format TEXT a partir de $2000 (avcc offset) 

derniere erreur sur Kyram. Code d'erreur en $300 

est branche 

transfer t de xxxx a yyyy vers zzzz en memoire auxiliaire : 
& AMOVE "xxxxyyyy zzzz" 

transfert de xxxx a yyyy vers zzzz en memoire principale : 

&PMOVE "xxxxyyyyzzzz" 

transfert d 'execution vers memoire auxiliaire 

transfert d'execution vers memoire principale. 

laisse en $320 adresse de retour vers memoire principale 

laisse en $320 adresse de retour vers memoire auxiliaire 




J13 > 113 JHP H2TH :XO?BO: ' DA PROLOG I 1 , 

114 114 MP HOT! ;WAEP1: • AD EPILOG I • , 

115 115 JHP MOTJ iKOggll • DA EPILOG I • , 
111 COIWAUDE MP HOTA : COHHS : 11 STE DES COtmUDES US JHP HOTK .-RAPRO: ' AD PROLOG ILECTU, 

117 MP H3TB ;LRHTS:LISTE DES PAMMETFES in MP HDTL ;ROPRO: ' DA PROLOG I ' , 

118 MP KOTC ;CHKSU:TESTE LE CHEKSUH ADRESSE US MP MOTH ;RAEPI : ' AD EPILOG ( ' . 
lit MP HOTD ;NOCHK:N'EN TIEKT PAS COHPTE Uf MP HOTN .RDEPI: ' DA EPILOG ( • , 
120 MP MOTE ; TSTPR : TESTE LE PROLOG DATA 130 MP MOTO . SYHCR : MODI FIE NIBBLE SYNCHRO 
111 MP HOTF .-NOPRO.KE TESTE QUE LE 1ER (DSI 131 MP MOTP ,HAXPI:AU FORMATAGE: NB PISTES 
HI MP MOTG .WAPHO:HOD!FlE AD PROLOG fECQlT) li> MP MOTO .HAXSE: NB SECTEURS 
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1 33 




JMP 


MOTH 


vj'Sfc'i*: nisi rJ ow oe vtoc 


134 




JMP 


MOTS 




135 




JMP 


KOTT 


■ ronUv.ii ZiCv&i'tiE, 






TWO 


X (J 


• nnin ' ■ sik y.N sj?q hlau+vtoc 


1 77 
1 J 1 






toJ it 




1 38 




JMP 




: r. 1 . — . »C(iJ aUVI 


1 39 




JMP 


MOTX 




1 AC, 

1 flu 




iua 
UKc 


Wi I 




1 A 1 






PtJiol 




1 42 




JMP 


MOTZ 


1 nr TTn 1 T »itt pauc n/ic CXMC Pi TA 7 nil 
; lNIlU. lfil 1 -""IV-i iJUa iflfto . .1 l-- 


1 43 




JMP 


J4QTA1 


■ nrtPA<: • afptchf syfino rw pormat txt 


1 44 




JMP 


J40TC1 


iDlAGN.Art 1 . cKK/ot Crtc Sst<~n/<i IN 1 1U 


1 45 




JMP 


KYRAM 


i n I rviJ*; . /f:C J i ji fli"!^/-/*— nfiu 


146 




Tun 


AfflJV 


■ co nrT ttp than^pprt dp mTV -> alw 

, jc UU lirf i rc/irof cn i -*c iii* /tu»\ 


1 A 7 
14 1 




TVD 


pun]/ 


• <TP Ml J Tf TRANSFFRT DE\ MEV —> PR1 


I AO 






apyp 


; nr/ r r*» transff.rt f.xf.c -> aujc 






JMP 


PEXE 


;SP DU lie TRANSFERT EXEC --> PR1N 


J JU 




TWO 


DC TO 


•lATSSF FN S"i?Q BtLl£T DE RET PRIN 


151 




JMP 




■ r ■ rrrn r^tt ff^7rt O f ! T nr orl* A fTV T 


1 52 










' E 7 


i 
















1 54 


105 


HEX 






1 55 


TRK 


HEX 


Vil 


• _S >Jy-i HP DTCTF 


1 56 


STB 


HEX 


00 


;— > No Dt SLClbUls 


1 C 7 




litiK 


t"3 Aft 


-— > 7*AfJf T rARACTFPTSTIOUFS UNI TSE 


?S* 




HEX 


0020 


; BUFFER D' ENVOIS 






HEX 


0000 




i en 


CUM 




00 


•rtTNMANDF IQO Ql 02 041 


1 £ 1 
I fti 


ERR 


HEX 


00 


:Cf)NTIEHT ERR SI 1ND1C P A 1 


i f 2 




HEX 


006001 




I 9 J 

1 64 


/■•a on 


HEX 


0001FFD8 


: TABLE DES CARACTF.RTRT TOURS 










1 65 


W3TA 


jsr 


ii d 8 




1 66 




r ni 


»n 1 




I if 7 
1 a I 




i nv 


i/lfV 




1 68 




~J iit\ 






169 










1 70 










1 71 




LDA 


tCKD 


iAFFICHL' L'ECRAN COMMAKDES 


1 72 




LDY 


l/CMD 




1 73 




JSR 


STHUUT 




T 74 










i 7*; 










V 76 




LDA 


ICMDI 




1 77 
111 




Aits I 


/ /CMD1 


■ 

* 


1 78 
1 »o 




JSR 


S TROUT 




1 79 










i on 








* 


1 Dl 




i>l/ 1 


w / \*nU£ 




Jfl2 




JSR 


STROUT 




1 A? 
1 OJ 










1 84 




RTS 




.RETQUR PRG D'APPEL 


135 


motb 


JSR 


SFC58 


;H0ME 


1 86 




LDA 


IKY 


,-AFFICHE 'KYBAM' 


187 
IBB 




LDY 
JSR 


9/KY 

STROUT 




1A0 










i nn 










i yi 




t n± 


WAilllL.nL/ 


-tf*pTi*itF' "iipxn "?vc " 


J 9£ 






4/ADREAD 




J 93 




JSR 


STROUT 




7 94 










i 95 










1 96 




LDA 


SB 95 5 


OW VA CHERCHER READ A DD PROLOG 






JSR 


F KBYTE 


•Off 1,'AFFTCHF 


1 98 




LDA 






7 
J 33 




. TCP 


BUflVTP 

ri\o 1 - c 


* 


7/1/1 
£UU 




f nA 


r SI OA B 




£'J1 




.TCP 


PRflVTF 




7 fl7 
£U£ 




TCB 
USB 


r l (ft- 


• nw AFFrf~uv "fiu iik ruiMU ' B 


503 
* U J 




TM 


SB992 


•FT* OW AFFTCHF 


204 




JSR 


P KBYTE 


,'Z-f A^AD ADD EPILOG 


205 




LDA 


$3998 




206 




JSR 


PRBYTE 




207 




JSR 


CHD 


AFFICHE "CHAMP DONVEESr * 


208 




LDA 


SB8E7 


;£r ON L' AFFICHE 


£W 




TCP 






pin 

£t \l 




LDA 


SB8F1 




Til 

£ll 




ICO 


d □ v Tr 




212 




LDA 


SB8FC 








TC/D 


DPS V 7"f 




21 4 










7X5 






FTNC 


-MFMF CHD^F P0T1R "FTV rtP CHAMP'" 


2)6 




'.DA 


$R93*t 




? J 7 




.7Sfl 


PRRYTP. 




21R 




r.f)A 


SRQtF 




21 9 




JSP 


PR BY TfT 




220 










7 7 1 




X flfl 


j Anus rfp 


.nil DPPflTT TY1."IT fi Jl/Pf* 


222 




LDY 


1 /A r>WD T IT 








•JSP 






224 










225 










226 




LDA 


5SC7A 




227 










22 B 




LM 


5SC7F 





rrs jsfl pflflyrc 

£J0 LDA (BC04 

231 JSR PRBYTE 

232 jsn rise 

233 LDA SDCAB 

234 JSR PROYTU 

235 LDA SBCB3 

236 JSR PRBYTE 

237 LDA SBCBB 
236 JSR PRBYTE 

240 JSR UiU 

241 LDA SU853 

242 JSR PUB tit 

243 LDA SBB5B 

244 JSR PRBYTE 

245 LDA SB85D 
24 6 JSR PRBYTE 
24? 

248 JSR FINC 

249 LDA SB89E 

250 JSR PRBYTE 
2 SI LDA SB8A3 

252 JSR PRBYTE 

253 LDA SB8A8 

254 JSR PRBYTE 
255 

256 

257 LDA tCHKSVM ; "CHEKSUM: " 

258 LDY l/CHKSUM 

259 JSR STROUT 

260 LDX SB92E 

261 LDA tOl 

262 CPX l$13 ;SI L'OCT CHERCHE A 13 (BNE L + 13) 

263 BEQ OUZ iON ECRIT "0UI m 
764 LDA 400 /SINON "NON" 
265 OUT JSR PRBYTE ;AFF1CHE A EH HEXAA 
2K6 

267 

268 I.DA iADRTST : IDEM AVEC TEST DE L'EPSLOG DATA 

269 LDY 4 /A DHT.TT 

270 JSR STROUT 
27 X 

272 LDX SBBF3 

273 LDA 101 

274 CPX *$F2 

275 DEO OUklS 

276 LDA 400 

277 OVAIS JSR- PRBYTE ,-PRT A 
276 

279 LDA tSAUVE , ON AFFICHE OCTET SAUVECARDE DE LA 

£&Q LOT t/SAUVE .PISTE 11 

2B1 JSR STROUT ; 69->PROTEGE A9->N0N PROTEGE 

282 LDA SB292 

283 JSR PRBYTE 
284 

285 LDA 4 SYNC .'ON Atc'ICHE LE NIBBLE DE SYNCHRO 

286 LDY i/SYNC 

287 JSR STROUT 

288 LDA SBC60 

289 JSR PRBYTE 
290 

291 LDA 4NBPISTES ;QN AFFICHE LE NB MAXI DE PISTES 

?*I7 IJiY 4/NRPISTFJZ 

293 JSR STROtTT 

204 LDA SBEFE 

3SS JSR PRBYTE 

296 LDA 0-NBSECT .-ON ECRIT LE NB MAJfl DE SECTEVPS 

297 LDY //NBSECT /EN CE QUI CONCERNS FORMAT. 

2 98 JSR STROUT 

3 99 LDA SBF3A 
300 JSR PRBYTE 
301 

302 LDA 4VTOC ,- VOX LA LA POSITION DE VTOC 

303 LDY i/VTOC 

304 JSR STROUT 

305 LDA SAC01 

306 JSR PRBYTE 

307 lua fs&irr&u* 

300 LDY 9/SECTEVR 

309 JSR STROUT 

310 LDA SBOOD 
321 JSR PRBYTE 

312 LDA ITRKC ;0N AFFICHE L'ADD DU t RECENT PRG 

313 LOT i/TRKC 

314 JSR STROUT 

315 LDA SAA73 

316 JSR PRBYTE 
32 7 LDA SAA72 

31 8 JSR PRBYTE 

31 9 LDA tLD 

320 LDY 0/LD f . . .ET SA LONGUEUR. 

321 JSR STROUT 

322 LDA SAA61 

323 JSR PRBYTE 
374 LDA SAA6Q 
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325 


JSR 


prrytf: 




326 


LDA 


fFTRK 


.•TRACK COUPJLNT POUR KYRAM 


321 


t.ny 


4/CTRK 




398 


JSP 


ZTPQUT 




121 


LDA 


TJtK 




330 


JSR 


PRBYTB 




331 


LDA 


IDTPX 


i . . .ET AUDI TOUR LE DOS. 


332 


LDY 


4/DTRK 




333 


JSP 


S TROUT 




334 


LDA 


S3E7 


, PA3 MAfiRANT A TfiOUVER , 3E7-3E6 


335 


OTA 


S06 


, CONT1ENT UNE ADRESSE QUI 


33C 


LDA 


S3E0 


.HEME L' ADRESSE DU DEBUT OS JOB ? 


337 


STA 


907 


i 


330 


LDY 


4S00 


i 


339 


LDA 


(S06), Y 




340 


STA 


91A 




341 


I NY 






342 


LDA 


(306), t 




343 


STA 


SIB 




344 


LDY 


9404 


iTRR C'tSX LE 41EM£ DE iOB 


343 


LUA 


(SlAf, r 




346 








347 


JSR 


P KBYTE 




J4tt 


LDA 


i DOTTED 


;0N TRACE UNE LIGNE. 


349 


LDY 


t /DOTTED 




350 


JSR 


STRQUT 




351 








352 


RTS 






353 MOTC 


LDA 


tS13 


; OBLIGE LE DOS A TESTER CHEKSUM 


354 


STA 


SB92E 




355 


RTS 






356 .MO TO 


LDA 


ISOO 


■PERMET LES ERREORS SUR CHXSW 


357 


STA 


SB92E 




358 


RTS 






359 MOTE 


LDA 


0SF2 


;PAS D'ERB S'JR LE PROLOG DATA 


360 


srA 


SB8F3 




361 


LDA 


t$B7 




362 


STA 


SB8FE 




363 


RTS 






364 MOTF 


LDA 


ISOO 


;LES ERR PASSENT A TRA VERS 


365 


STA 


SB8F3 




366 


STA 


SB8FE 




367 


RTS 






36S MDTG 


TJ>A 


4Sor 


J ON VFtrr 9 OCTET? EN ENTREE 


169 


STA 


SECONDS 


5 /J ER "> * 6 (3 ■ 2 ) *J m$OC 


170 


JSR 


SAUVEG 


:SAUVE $88 $89 EN VUE D'UN RET BAS 


371 


JSR 


DECODE 


INITIALISE ; "DEAA9S "? OU AS? 


372 


JSR 


CONVERT 


.-LE 1ER TROUVE EST PLACE DS A 


373 


STA 


SBC? A 


.ON STOCKS 


374 


JSR 


CONVERT 


j LE 2ND EST PLACE DANS A 


375 


STA 


$BC7F 


j ETC 


376 


JSR 


CONVERT 




377 


STA 


5BC84 




3?B 


JSR 


RESTORE 




379 


RTS 






380 MOTH 


LDA 


tsoc 


;CF ntJTli 


361 


STA 


stcwvwt; 




s a 2 


JSR 


SAUVEG 




3 S3 


JSR 


DECODE 




384 


JSR 


COSVERT 




385 


STA 


$3853 




386 


JSR. 


CONVERT 




387 


STA 


SB858 




388 


JSR 


CONVERT 




389 


STA 


SB85D 




390 


JSR 


RESTORE 




391 


RTS 






392 MOT! 


IJ)A 


ISnr 


,-CF MOTC 


393 


STA 


SECONDS 




3 94 


JSR 


SAUVEG 




395 


JSR 


DECODE 




396 


JSR 


CONVERT 




397 


STA 


SRrte 




3 98 


JRP 


CONVERT 




3 99 


STA 


SBCB3 




4 00 


JSP 


CONVERT 




401 


STA 


SBCB8 




4C2 


JSR 


RESTORE 




403 


RTS 






4C4 MOT J 


LDA 


ISCC 


, CF MOTG 


405 


STA 


SECONDS 




406 


JSR 


SAUVEG 




407 


JSR 


DECODE 




4 OB 


JSR 


CONVERT 




409 


STA 


SB0 9E 




410 


JSR 


CONVERT 




411 


STA 


SBBA3 




412 


JSR 


COS VERT 




4X3 


STA 


SBtiAB 




414 


JSR 


RESTORE 




415 


RTS 






416 HOTK 


LDA 


tsoc 


:RAPRO 


417 


STA 


SECCNDE 




418 


JSR 


SAUVEG 




419 


JSR 


DECODE 




420 


JSR 


CONVERT 





431 


STA 


SB 55 5 




422 


JSR 


CONVERT 




423 


STA 


SD95F 




424 


JSR 


CONVERT 




425 


STA 


SB96A 




426 


JSR 


RESTORE 




427 


RTS 






420 MOTL 








429 


LUA 


tsoc 


,'RDPRO 


430 


STA 


SECONDS 




431 


JSR 


SAUVEG 




4J2 


JSR 


DECODE 




433 


JSR 


CONVERT 




434 


STA 


SB8E 7 




435 


JSR 


CONVERT 




436 


STA 


SBBF1 




43/ 


JSR 


CONVERT 




438 


STA 


SBBPC 




439 


JSR 


RESTORE 




440 


RTS 






441 M3TM 








442 


LDA 


4$0A 


;RAEPI 


443 


STA 


SECONDE 




444 


JSR 


SAUVEG 




445 


JSR 


Dt,x.Ot)E 




446 


JSR 


CONVERT 




447 


STA 


SB391 




448 


JSR 


CONVERT 




449 


STA 


SB99B 




450 


JSR 


RESTORE 




451 


RTS 






452 MOTN 








453 


t.DA 


1 SO A 


.•RDEPI 


454 


STA 


SECONDE 




455 


JSR 


SAUVEC 




456 


JSR 


DECODE 




457 


JSR 


CONVERT 




458 


STA 


SB 93 5 




459 


JSR 


CONVERT 




460 


STA 


SB93F 




461 


JSR 


RESTORE 




462 


ATS 






463 MOTO 








464 


LDA 


4S00 


, IDEM AVEC 1 OCTET FOUR SYNCR 


465 


STA 


SECONDE 


, ST NCR 


466 


JSR 


SAUVEG 




467 


JSR 


DECODE 




468 


JSR 


CONVERT 




4 69 


STA 


SBC60 




470 


STA 


SBB3E 




471 


JSR 


RESTORE 




472 


KTS 






47 J MUTP 








474 


LDA 


4508 


;NAXPI 


475 


STA 


SECONDE 




476 


JSR 


SAUVEG 




477 


JSR 


DECODE 




4 78 


JSR 


CONVERT 




479 


STA 


SBEFE 




480 


JSR 


RESTORE 




481 


RTS 






482 MOTO 








483 


LDA 


4508 




484 


STA 


SECONDE 


: MAXSE 


485 


JSR 


SAtn/£G 




486 


JSR 


DECODE 




487 


JSR 


CONVPRT 




498 


STA 


SBF2A 




489 


JSR 


RESTORE 




490 


RTS 






491 MDTR 








492 


LDA 


tSOA 


i VTOCEET 


493 


STA 


SECONDS 




494 


JSR 


SAUVEG 




495 


JSR 


DECODE 




496 


JSR 


CONYERT 




497 


STA 


SAC 01 


.-PISTE 


498 


JSR 


CONVERT 




499 


STA 


SBOOD 


.-SEUTEUH 


500 


JSR 


NtSTQttit 




501 


NTS 






502 tOJlS 








50 J 


LDA 


t5A3 


;ON HOD IF IE LE D05 (PISTE 11) 


504 


STA 


SB292 


iANTl 


505 


RTS 




; TESTDOS 


506 NOTT 








507 


LDA 


4569 


;RETABL 


SOB 


STA 


SB292 


.■TEST 


509 


RTS 






510 NOTU 








511 








512 


LDA 


SBC7A 


SQUID! TPANSFERT D'OCTETS -> $320 


513 


STA 


$320 


;ON TROUVE LES PROLOGUES EPILOGUES 


514 


LDA 


SBC7F 


;DE READ ET WRITE * SYNCR ET VTOC 


SIS 


STA 


S321 


.-PISTE EN TETE 


516 


LDA 


SBC84 
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SI 7 


STA 


5J22 




310 


L>UA 






52 9 


STA 


S323 




520 


LDA 


SBC 8 -3 




521 


STA 


S 134 

O J£ 1 




J££ 


rnj 
LtuA 


snrRA 




J£J 


Jin 


iJ£D 




J** 








j£j 




SRfl 1 ! 1 

3O0 JJ 




J£0 


SI A 


•> J< 




527 


LDA 


SB858 




C 3 
J£B 


STA 






Jt H 


r n ji 
LAJA 


coo 'in 




3 J 1/ 


slA 


t 73 6 

>J£B 




t 71 

J J J 


7 Hi 

liUn 








J l A 


C 75 Q 
J J// 




JJJ 


iAJA 


Coda 7 




3 Jfl 


C1*A 






333 


LUA 


COB* i0 

SUB AO 




J Jo 


Jin 


1 7.3P 




(41 

53/ 








£ 2d 

J JO 








C 70 
















54 J 


LDA 


$B95 5 




542 


STA 






543 


LDA 


SB95F 




£44 


STA 






545 


LDA 


SflJH 




546 


STA 


S32B 




547 


LDA 


5D991 




540 


STA 


S32F 




f JO 


rnj 

UUn 


fa ago 




JJV 


era 

O J/1 






551 








JJ£ 


uUn 


?BBC I 




j j J 


era 

-31/1 


SHI 
J J Jj 




554 




SB0f2 




555 


SSI 


5332 




556 




SB8FC 




557 


sta 


S3 33 




558 


LDA 


5B935 




ceo 
JJr 


Jin 


C 3 7* 




5.60 


f./)A 






3 6J 




# 37C 

i JJJ 




562 








ro 
j a J 


LiUA 


joDJO 




3 01 


j i rt 


C 3 3jJ 

JJJ O 


- SYNC 










360 


LUA 




■ I/T D T 


JO/ 


STA 
Jin 


/JJ ' 




era 

3 Do 


LDA 


SBOOD 




fro 
3 J> 


*ri*a 


C770 
- — - ■- 




CIO 

3 / W 








C71 

3 • I 








572 








573 








574 


LDA 


#$08 


.'READ TRJC [ 1 PARAMETRP 


575 




SECOfJDE 




57* 


J"SP 


SAUVEC 




577 








576 


JSR 


DECODE 




579 








tan 

JOU 


r na 

±iUt\ 






581 


STA 


(SUM 


lUN MPT />' DISK 1 14 KAHCHh 




•Jon 






583 








CO A 
jol 


XDA 


77Uf 


,' I / i, ' cNVUlttts LN rjiit 


cat 
3 03 


TCP 




> L col c ni 1 . 


C0£ 








to 7 

jB 1 




»p 1/1/ 


• a hit t vttws.V7 nv i/i f f or wr ufj 7 ft? 


588 


STA 


JM+J 


•FT LFS ST0CKFR DF 57(100 A S1FFF 


589 


LDA 


4520 




590 


5TA 


IM*2 




591 


LDY 


tsoo 


: IM+1 C0NT1ENT ADRESSE ST0CKAGE 


592 








C 07 

3 y j 


i nx 




-MR SlfiT* 1 6 


594 


LDA 






COG TD VB 

32»5 irtnn 


r nil 


f z 1 /i D r* v 




C Q£ 

3 Jo 




i«/tn 


- vk ut n't in oipc air nou 
, lAiil iJU ill N tij f«i Ol/ft.. , 


C 07 TV 

J// in 


sin 


?<(/VU* 




coo 


INC 


IM-rl 


. Off aALAUh lit FUlNTEUR 


599 


BNE 


TRKB 




600 


7WC 






QUI 


FJU 


T M+? 








• f 3P 




SOS 


BNE 






604 








£ /I C 


LDA 




1 UN AHUxillti IvUT g DISKiSTOi 1 ; 


606 








o w / 








SOS 








609 MOTrf 








**i0 


LOA 




VECTOItISC RESET EN RAH 


6J2 


CTA 


*JF4 




612 


LDA 


t$FF 


,ET DS LB DOS SUP BOOT 



o'JJ STA S9HJ7 

614 KIS 

6J5 

616 WTX 

62 7 LDA iS38 ; NOPE SET 

628 STA S3F4 

619 LDA #5A5 

620 STA S9E37 ;PAS DE BOOT SI RESET 

621 RTS 
622 

623 M0TY 

624 LDA 4501 ; C0MKANDE P0UP READ 

625 STA COM 

626 JSft RWTS .-ON VT1LISE RWTS 

627 JSR RESTORE 

628 RTS 

629 RWTS LDA IS OA ;2 PARAXETPES 

630 STA SECONDS ;MAIS 'PISTE EN TETE' 

631 JSR SAUVEC 

632 JSR DECODE 

633 JSR COWEPT 
634 

635 STA STR : LE 1ER C'EST SECTEUH 

636 PIST JSR CONVERT 

637 STA TRK j IS. ?N0 TRACK 
638 

619 LDA 4SO0 

640 5TA ERP : C0HME CA 91 ERROOO Y A ERPFUP 

661 

642 

643 CO LDA t/IOB 

644 LDY HOB /PUTS 

645 JSR S3D9 . ON SAUTE AUX VHA15 RWTS. 

646 RTS 
647 

6-36 MOTS LDA 4 $04 

619 STA COM ; rORMATTAGE SANS DOS SANS CATALOG 

650 JMF GO 

651 

652 KUl'Al Not* ;BUFAS: BUFFER 52000 DE I0B EN ASCII 

653 LDA tSOO 

654 STA SI A 

655 LDA tSgO 

656 STA 51B ; ADRESSE DE DEPART 

657 LDA 4SO0 /PASSE 

658 STA PASSE 
659 

660 JP LDA PASSE 

661 JSR PRBYTE 

662 LDA #■-- 

663 JSR SFDFO /AFFICHE A 

664 LOT 400 

665 LOOP1 LDA t$iA),Y 

666 JSR SFDFO 

667 I NY 

66B CPY *32 :0N FAIT 32 CARACTZR£S 

P.NR T.OOP1 

670 JSR SFC62 { f» 

67J LDA 432 

672 CLC 

673 ADC 51 A 

674 STA SI A 

675 STA PASSE 

676 CMP tSOO /POOR 255 CA RAC TERES 

677 BNE JP ; LIGNE SUIVANTE 
678 

6?9 JSR 5FC62 ;CR 
680 

691 RTS 

682 

683 

634 t&TBl 

685 LDA 4502 ;ON ECRIS LE BUFFER 

686 STA COM 

687 JSR RWTS 

688 JSR RESTORE ;HRITE 

689 RTS 
690 

691 M0TC1 LDA ERR ,-0N RECARDB SI ERRoO 

692 STA $300 ;A0 PASSAGE ON LA LAISSE EN $300 

693 Q& f$00 

694 BNE ERREUR .-SI 0UJ. ON L'AFFICHE 

695 LDA 4N0NP ;SI NOW... 

696 LDY t/NONP 

697 JSR STR/WT 

698 RTS 

699 EPJirVP CMP t$10 

700 BNE VOLUME 

701 LDA IMP 

702 LDY t/WP 

703 JSR STROUT 

704 RTS 

705 VOLUME CMP tS20 
70 6 BNE BISA 

707 LDA I VOL 

708 LDY 4 /VOL 



V 

20 
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709 




JSP 


S TROUT 




805 


STA 


S3ES 




•J 10 


arzA 


CMP 


»$*G 




80* 


CLV 






7 J X 




ONE 


n TWA 




607 


CLC 






713 




LDA 


tDIZ 




803 


JSR 


XFEP 




713 




LDY 


t/BIZ 




809 


RTS 






714 




JSR 


3TR0UT 




810 








715 




rts 






811 KETP 


LDX 


t$QO 


jTRANSFERT EN S320 PEXE 


716 


RTWA 


CMP 


4480 




012 TRANS1 


LDA 


PEXE . X 




71? 




BNE 


CAALORS 




913 


STA 


5320 ,X 




718 




LDA 


tRTN 




814 


I NX 






719 




LDY 


t/RTM 




815 


CPX 


4S20 




720 




JSR 


STRVUT 




816 


BNE 


TRANS1 




721 




RTS 






817 


RTS 






722 


CAALCRS 


LUA 


tCA 




818 








723 




lot 


t/CA 




819 RETA 


LDX 


tSQQ 


.-TRANSFRRT FN flFVF 

1 1 IV! KJt till 1 Zll> J 1 J 'L.AL 


724 




JSR 


STHUUT 




820 TRANS2 


LDA 


AEXE,X 




725 




RTS 






821 


STA 


$32Q,X 




726 










822 


INX 




727 


kiram 


LDA 


tKYRAMP 


;0N AFFICHE "KYRAM OK' 


823 


CPX 


iS20 




729 




STA 


S3F6 


t'ET ON VECTORISE VERS LE DEBUT 


824 


BNE 


TRANS2 




J29 




LDA 


4/XYRAMp 




825 


RTS 






730 




STA 


S3F7 




826 








731 










82 7 * 








732 




LDA 


4KYM 




828 








733 




U>Y 


l/KYM 




829 • CES ROUTINES PERMETTENT D'ALLER CHEFCHER DANS A 


734 




JSR 


STROUT 




830 ' DES VALEURS 


DS LE BUFFER (EX "D5AA "J OU EN MEV 


735 




rts 






831 ' BASIC 


(EX AS) . 




736 










832 








737 


AMOV 


STA 


SC007 


;0N VA UTILISE!* SCI 00 MEM 


833 SAUVEG 


LDA 


SB 8 


;0N SAUVEGARDF- I.F-S POTNTFATR 


738 




LDA 


IS12 


s 6 PAPAMETRES 


834 


STA 


S1A 


:nw RASTC (TXTPTR) 


739 




STA 


SECONDS 




835 


LDA 


SB 9 




740 




JSR 


SAUVEG 




836 


STA 


sin 




741 




JSR 


DECODE 




837 


RTS 






742 










838 RF.smRE 


LDA 


S1A 


.'ON LES REMET OU I IS ETAIENT 


743 




JSR 


CONVERT 




ai« 


STA 


$B8 




744 




STA 


AlH 


.-PTFOPT 


040 


LDA 


$1B 




745 




JSR 


CONVERT 




B41 


STA 


SB9 




746 




STA 


AIL 


.■PTFAIBLE :ADD 


842 


PTS 






741 










843 








74 ft 




JSP 


CONVERT 




844 DECODE 


LDA 


BUFFIN 


.•POSITION DES P01NTEW3 SUR OCTETS 


749 




STA 


ASH 


,'FIN (rTFORT) 


845 


CLC 




.OU'IL FAUT (PARAMETRES) 


750 




JSP 


CONVERT 




946 


ADC 


*SQS 


i ON SE POSITIONNE APRES LE MOT 


7S1 




STA 


A2L 


i (PTTAIDLE) 


B47 


LDY 


BUFFINtl 




762 










848 


STA 


SB 8 




753 




JSH 


CONVERT 




849 


STY 


SB9 




7S4 




STA 


A4H 




650 








755 




JSP 


CONVERT 




851 


LOT 


tSQS 




7 St 




STA 


A4L 




652 


WA 


(BUFFIN) , Y 


;0N A ONE 1ER ' ? 


757 










853 


CMP 


4522 




758 




SEC 


;MEV PRINCIPALS VEKS AUXJ 


BS4 


BNE 


VARIABLE 


; NON,CA DOIT ETRE DU XS 


759 










855 


LDY 


SECONDE 


;N PARAMETRES PLUS LOIN... 


7 60 




JSR 


MOVE 




856 


LDA 


(BUFFIN) , Y 




761 










857 


CMP 


4S22 


;0N A ONE 2ND " ? 


7 62 




JSR 


RESTORE 




858 


BNE 


OPERROR 


; NON: ERREUP OPERA NDE 


>bJ 




RTS 






859 


INC 


SB 8 


;C'£ST BOS, ON SE PREPARE A DECODER 


7 64 PMOV 


STA 


SC007 


,-MEME TRAFFIC QUE PRECED. 


860 


RTS 






7 65 




LDA 


4S12 




861 








7 66 




STA 


SECONDE 




862 OPERROR 


JSR 


SFBE4 


;BEEP 


7 67 




JSR 


SAUVEG 




863 


LDA 


/OPERRORM 


; 'KYRAM' ERREOR OPE PA NDE 


7 68 




JSR 


DECODE 




864 


LDY 


4/OPERRORM 





769 
770 
7 71 
7 72 
7 73 
774 
7 75 
7 76 
7 77 
77* 
779 
7*0 
701 
7S3 
703 
764 
705 
706 
787 
708 
709 
790 

/yi AbXZ 

192 

793 

794 

795 

796 

797 

798 

799 

800 

501 PEXE 
802 
803 
904 



JSR CONVERT 

STA AlH 

JSR CONVERT 

STA A 7 /, 

JSR Convert 

STA A2H 

JSR CONVERT 

STA A2L 

JSR CONVERT 

STA A41I 

JSfit COPTVEBT 

3TA A4L 

CLC 

JSR MOVE 

JSK RESTORE 
RTS 



JSR 
JMP 



STA 
LDA 
STA 
LDA 
STA 
LDA 
ADC 
SEC 
JSR 
PTS 
STA 
LDA 
STA 
LDA 



SCO07 

S3F2 

S3ED 

S3F3 

S3EE 

ISFE 

ISFF 

XFER 

SC007 
S3F2 
S3ED 
S3F3 



,'VERS MEMVJKE PRINCIPALS 



;MEM $C1 00 

l RECUPERE L' ENTREE A CRAUD DU DOS 



;ON MET L'INDIC V A 1 
;C'EST PARTI. . . 



865 
866 
867 

868 VARIABLE JSR 
969 
870 
871 
872 
873 
874 
87 S 
87 € 
877 
670 
879 
060 
681 

882 CUUE 
883 
884 
885 
886 
887 



889 HOP 
890 
891 
892 
893 
894 
895 
896 

897 CONVERT LDY 

898 LDA 

899 JSR 

900 ASl. 



LDY 
LDA 
STA 
ZNY 
LDA 
STA 

LDA 
CMP 
BNE 

RTS 
CMP 
BCC 
CMP 
BCS 
CLC 
SBC 
RTS 
CMP 
BCC 
CMP 
BCS 
CLC 
SBC 
RTS 



STROUT 
5D43C 



JS01 
($83) , Y 
SD8 

($93) , Y 

VALTYP 

49FF 

OPERROR 



f$3V 
OPERROR 
i$3A 
HOP 

0S2F 

i$41 

OPERROR 
0S47 

OPERROR 



#54 



8S00 
(SR8) , Y 

CODE 



.■BASIC 



sCHFRCHF. VARIABLE- POTNTEF PAR (SB8) 



;ON FREND 30N ADRESSE 



.SI JAMAIS C'EST PAS VNE CHAINS. . 



; ON LAISSE rOM&ZR. 



;A EST UN CHIEF RE ? 

;NI CHIFFRE NI LETTRE: DEHORS! 

;C'EST UNE LETTRE 

; C'EST UN CHIFFRE ON CODE HEXA 



/ ENTRE A ET F? 
EUH, NON. . . 

NOW PLUS. . . 

C'EST BON ON COOP HEXA 



;ON PRF-ND IE 1ER 



/OW LE CODE 

.■ON LE MULT1PLIE PAP I* 
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901 




ASL 






9 97 


ASC 


•ASAUVPSAUVQUID! ' 




902 




ACL 






9 98 


ASC 


' RD TRKRESE TNRESE ' 




903 




ASL 






999 


ASC 


•SECRESECNRINITD' 




904 




STA 


PASSE 




1000 


ASC 


•BUFASD2AQNKYRAM' 




905 




I NY 






1001 


ASC 


' AMOVEPMOVEAEXEC ' 




906 




LDA 


(9B81 , Y 




1002 


ASG 


• BEXE CRE TPRRE TA ' 




90? 




JSR 


CODE 




10O3 








908 




CLC 






1004 ' 








909 




ADC 


PASSE 


,'ON LVI AJO'JTE LE SECOND 


toes 








910 




TAX 






1006 ' D1VERSES 


ROUTINES OU DONNEES D 'AI'b'ICHAGE 




911 




IDA 


5B6 




100) 








912 




CLC 






100B FINC 


LDA 


IADREAD1 :AFF1CHE TIN DE CHAMP" 


913 




ADC 


tS02 


/UN AJUS1H LES POINTEURS POOR LA 


1009 


LDY 


1/ ADREAD 1 




9H 




HCC 


JUMP 


; SUITE. 


1010 


JSR 


STROUT 




915 




INC 


5B9 




1031 








916 


JUMP 


STA 


$B9 




1012 








917 




TXA 






1013 


RTS 






91 a 




ATS 




JA CONTIENT LES 2 ASCII EN 1 HEXA 


1014 








919 










1015 CHD 


LDA 


i ADREAD 2 ;AFF1CHE "CHAMP DONNEES: " 


92 Q 










1016 


LDY 


i /ADREAD 2 




921 










1017 


JSR 


STROUT 




922 


GETUNE 


IDA 


4$00 


;ADRESSE BUFFER DE & INTERPRETED 


1018 


RTS 






923 




STA 


BDTFTH 




2019 








924 




LDA 


i$03 




1020 








925 




STA 


BUFFI N+l 




1021 CFERRORM HEX 


3D ; TEXTES D'ERREURS* . . 




926 










1022 


ASC 


" 'KYRAM' EPREUR D ' OPERANDS . " 




927 




tax 


4S00 




1023 


HEX 


00 




928 










io24 smwoR 


HEX 


BD 




929 




JMP 


SAUT 




1025 


ASC 


" 'KYRAM' ERREUR DE SYNTAXE . " 




930 










1026 


HEX 


00 




931 


CHARGE 


JSR 


CHRGET 


iPOINTE CARACT SUTVANT DS BVF BAS 


1027 








932 




J NX 




;0N UTILISE X COMME INDEX 


1026 KY 


HEX 


80 




933 


SAUT 


LDY 


4S00 




1029 


ASC 






934 




LDA 


($36) , Y 


;GET CAR 


1030 


HEX 


BD 




$35 




PHA 




;X-?Y 


1031 


ASC 


" ' KYRAM 




936 




TXA 






1032 


HEX 


BD 




937 




TAY 




I 


1033 


ASC 






93S 




PLA 






1014 


HF.r 


anaoao 




939 




STA 


(BUFF IN) , Y 


; TRANSFERT D'VN CARACTERE 


103S CMC 


ASC 


COMMA W/>FJ? 




940 




CMP 


453k 


;SI " AWRS ON A FINI 


1 016 


mat 


BD 




941 




BEQ 


STOP 


;C'EST FAIT 


1017 


ASfZ 


■/ CCOMMS / SlJWTS / IQOTD' / 


6BUFAS 


942 




CMP 


4500 


;SI C'EST FIN DE LA EIGNE PAREIL 


1038 


HEX 


RD 




943 




BSE 


CHARGE 


;0N CONTINUE SINON 


1039 


ASC 


"/ ICHKSU / tNOCHK / iTSTPB / 


tNOPRO 


944 










1040 


HEX 


8DO0 




945 


STOP 


RTS 




:P7tJ 


1042 CMD1 








Q4A 










2042 


ASC 


V tMAPPO / i WDPfiO^ / tWAEPI_ / 


tWDEPI_ 


947 


LOOP PP IN 


LDA 


»$00 


;ON COMMENCE PAR LS MOT No.O 


1043 








94B 




STA 


COMPT 




1044 


HEX 


8D 




94 « 










1045 


ASC 


»/ tRAPRO / CRDPP0_ / SRAEPI__ ✓ 


iPDEPl_ 


950 




LDA 


ILISTEVOC 


:OU EST LA LISTS DES MOTS? 


1046 








951 




STA 


VOC 




1047 


HEX 


8D 




952 




LDA 


0/LISTEVCC 




1049 


ASC 


'/ tSYNCR_ / 6MAXPI_ / 6MAXEE_ / 


tVTSET_ 


953 




STA 


VOC* J 




1049 


HEX 


BD 




954 










1050 


ASC 


V SASAUV / tPSAUY f t RESET / 


SNRCSE 


955 


ttOWEAU 


LDY 


9000 


,ON COMPARE MOT A MOT 


1031 


HEX 


BDOO 




9SC 


* 






.SI ON UNEO PASSU AU MOT SUIVANT 


1052 CMD2 


ASC 


V £RDTPK_ / SSECRE_ /' tSECHR_ / 


tlNITD 


957 


LOOPA 


LDA 


(BUFF IN) , Y 




1033 


HEX 


80 




95B 




CMP 


(VOC),Y 




1054 


ASC 


V iAMOVE_ / »PM0VE_ / iAEXEC / 


SPEXEC" 


939 




a he 


SUIVAHT 




1055 


HEX 


80 




960 




I NY 






1 056 


ASC 


"/ SKETPR / SRETA'J f tDIAGN / 


. KYRAM- 


961 




CRT 


0SO5 




1057 


HEX 


8D 




962 




BNE 


LOOPA 




1058 


ASC 






9bJ 










1059 


HEX 


BDOO 




964 




MTS 






1060 ADREAD 


ASC 




965 










1061 


HEX 


80 




966 


SUIVANT 


LDA 


VOC 




1062 


ASC 


READ SYSTEM: CHAMP ADPESSE 




967 




CLC 






1063 


HEX 


00 




968 




ADC 


tsos 




1064 ADREAD2 


HEX 


8D 




969 




STA 


VOC 




1065 


ASC 


» FIN DE CHAMP ■ 




970 




LDA 


VOC+l 




1066 


HEX 


00 




971 




ADC 


$500 




1067 ADREAD? 


HP.X 


$0 




972 




STA 


VOC*l 




1068 


AST 


" CHAMP DONNEES il " 




973 










1069 


HEX 


00 




974 




LDX 


COMPT 




I fl 70 ADWPITS 


HEX 


8D8D 




975 




INX 






1071 


ASC 


"- WRIT SYSTEM; CHAMP ADRESSC J" 




976 




STX 


COMPT 




1072 


HEX 


00 




977 




CPX 


440 


:MAXI 


1073 CHKSUM 


HEX 


8D8D 




97* 




RNF 


NOnVEAO 


:ON TESTE ON NOUVEAU MOT. 


1074 


ASC 


CtlEKSUM I)" 




979 




RTS 






2075 


HEX 


00 




9R0 










1076 SYNC 


HEX 


8D 




981 


ERROR 


dot 


SFRF.4 


:RTP 


2077 


ASC 


■- SYNCHRO ii" 




982 




LDA 


4SNERP.0P 


.-SYNTAX ERRflR i BDEMi 


1078 


HEX 


00 




983 




LDY 


8/SNERROR 




1079 ADRT3T 








984 




JSR 


STROUT 




10O0 


ASC 


" PROD l>- 




985 










1091 


HEX 


00 




986 




JMP 


SD43C 


.■APPSOFT 


1032 VTOC 


HEX 


0D 




987 


ft-! - 1 








10B3 


ASC 


TABLE VTOC P/ST&'O" 




989 










1064 


HEX 


00 




989 


• 


ICI 


ON A LA LISTS DES MOTS ADM1S 


1085 PISTE 


ASC 


- fi«iu- 




990 










1086 


titx 


00 




991 


L1STEVOC 


ASC 


•COMMSLPhTSCIWSU' 


1 0&7 raurecr 


ASC 


MAXSEV * 




992 




ASC 


•N0CHMTSTPRN0PRO' 


1088 


HEX 


00 




993 




ASC 


•HAPROHDPRONAEPI ' 


1089 SECTEUR 


ASC 


" SECTEVRQ ■ 




994 




ASC 


• NDEPIRAPRORDPRO ' 


1090 


HEX 


00 




935 




ASC 


•RAEPIRDEPI3YN.GR' 


1091 NBPISTZS 


ASC 


■ MAXP1 1) ■ 




996 




ASC 


•MAXP IKAXSE VTSET ' 


1092 


HEX 


00 
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1093 


SAUVE 


ASC 


sauuo* 


1118 


WP 


ASC 


-'KYRAH' LE DISK EST PROTEGE EH ECRTTURE. " 


1094 




HEX 


00 


1119 




HEX 


8DO0 


1095 


TRKC 


HEX 


8D 


1120 


Km 


HEX 


8D 


'096 




ASC 


PFG COURANV ASil" 


1121 




ASC 


-'KYHAM' L 'AMPERSAND EST OPERATIONNEL. • 


1097 




HF.X 


00 


1122 




HEX 


anon 


1098 
1099 


to 


ASC 

HEX 


• L$Ct' 
00 


1123 
1124 






* 




1100 


CTRK 


HEX 


BD 


112S 








1101 




ASC 


"- TRX COVRANT KYPAffo " 


1126 


PRESENT 


HEX 


8D 


1102 




HEX 


00 


112? 




ASC 




1103 


DTRK 


ASC 


* DOSi)" 


1129 




HEX 


BD 


no* 




IIGX 


00 


1129 




ASC 


"G.MENIER • KYRAM V2.2 ' STG- 


11 OS 
2106 


DOTTED 


HEX 
ASC 


3D 

" — ... i ■ . ... — ■ 


2130 
1131 




HEX 
ASC 


BD 










1107 




hex 


00 


1132 




HEX 


SDSDOO 


HOB 


nont 


ASC 


"KYFAM' PAS D 'E PRE UK A LA DERNIERE CMD. " 


1133 








1109 




HEX 


BDOO 


1134 


DE30T 


JSR 




1110 


VOL 


ASC 


"'KYPAM- ERREVR CONCERNANT LE VOLUME.- 


1135 




LDA 


4PRESEHT 


1111 




HEX 


BDOO 


1136 




LDY 


§ /PRESENT 


lilt 


BIZ 


ASC 


"'KYRAM' ERREVR CONCERNANT LE LECTEVR. " 


1137 




JSR 


STROOT 


1113 




HEX 


8D00 


1138 








1114 


Hilt 


ASC 


"KiHAH' MI'S NE fhUT LIRE PXULUGiEPlLOG . " 


1139 




JSR 


AYKAM 


1115 




HEX 


t)UUV 


114U 




RTS 




111b 


CA 


ASC 


"KYHAM' CODE NOH HOMOLOG DOS/PRC O G" 


1141 














111/ 




HEX 


BDOO 











Recapitulation 
'KYRAM' 

Apres avoir sat si ce code sous 
moniteur, vous l& sauvegarderez par 
BSA VE KYRAM,A$3FFA,L$D68 



3FFA- 


20 


54 


4D 


4C 


3C 


D4 






4000- 


AD 


00 


04 


85 


IE 


AD 


01 


04 


4008- 


85 


IF 


A9 


4B 


8D 


00 


04 


A9 


4010- 


59 


8D 


01 


04 


20 


E9 


46 


20 


4013- 


OD 


41 


A5 


IE 


8D 


00 


04 


A5 


4020- 


IF 


8D 


01 


04 


A9 


45 


85 


1A 


4028- 


A9 


40 


85 


IB 


A5 


CE 


C9 


28 


4030- 


BO 


10 


OA 


18 


65 


CE 


18 


65 


4038- 


IA 


DO 


02 


E6 


IB 


85 


1A 


6C 


4040- 


1A 


00 


4C 


3E 


47 


4C 


C6 


40 


4048- 


4C 


E6 


40 


4C 


6A 


42 


4C 


70 


4050- 


42 


4C 


76 


42 


4C 


81 


42 


4C 


4058- 


8A 


42 


4C 


AA 


42 


4C 


CA 


42 


4060- 


AC 


BA 


42 


4C 


OA 


43 


AC 


2A 


4068- 


41 


4C 


4A 


43 


4C 


64 


43 


4C 


4070- 


7E 


43 


4C 


95 


43 


AC 


A9 


43 


4078- 


4C 


BD 


43 


4C 


D7 


43 


4C 


DD 


4080- 


41 


4C 




41 


4C 


7A 


44 


4C 


4088- 


Ct 


44 


4C 


CC 


44 


4C 


D7 


44 


4090- 


4C 


45 


45 


4C 


06 


45 


4C 


OE 


4098- 


45 


4C 


51 


45 


4C 


9A 


45 


4C 


40A0- 


AC 


45 


4C 


DF 


45 


4C 


12 


46 


A0A8- 


4C 


2A 


46 


4C 


3F 


46 


4C 


AD 


40B0- 


46 


01 


60 


01 


OO 


00 


00 


C2 


40B8- 


40 


00 


20 


00 


00 


00 


00 


00 


40CV- 


60 


01 


00 


01 


EF 


D8 


20 


58 


40C8- 


FC 


A 9 


49 


AO 


48 


20 


3A 


DB 


40DQ- 


A9 


97 


AO 


46 


2Q 


3A 


DB 


A9 


40D8- 


11 


AO 


49 


20 


3A 


DB 


A9 


B2 


40EO- 


AO 


49 


20 


3A 


DB 


60 


20 


58 


40E8- 


FC 


A9 


49 


AO 


48 


20 


3A 


DB 


40F0- 


A9 


52 


AO 


4A 


20 


3A 


DB 


AD 


40F8- 


55 


B9 


20 


DA 


FD 


AD 


5F 


B9 


A100- 


20 


DA 


FD 


AD 


6A 


B9 


20 


DA 


4108- 


FU 


20 


FF 


47 


AD 


91 


89 


20 


4110- 


DA 


FD 


AD 


9B 


B9 


20 


DA 


FD 


4118- 


20 


07 


48 


AD 


E7 


B8 


20 


DA 


4120- 


FD 


AD 


Fl 
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CB 


D9 


4D58- 


EE 


AO 


4C 


20 


3A 


DB 


20 


9A 


4B9Q- 


C3 


CF 


Db 


D2 


CI 


CE 


D4 


AO 


4C78- 


D2 


CI 


CD 


AA 


AO 


C3 


CF 


C4 


4D6Q- 


45 


60 














4B98- 


AO 


CB 


D9 


D2 


CJ 


CD 


FC 


00 


4C80- 


C5 


AO 


CE 


CF 


CE 


AO 


C8 


CF 





















Les reliures Potn's 

Pour nos lecteurs comme pour nous, 
la revue Pom's est une source pricieuse 
d 'information. A ce litre, nous somrnes 
amenes a la consulter souvmt. 

Pour faire suite a de nombreuses 
demandes, et afin de facilite le rangement 
et les recherches dans Pom's, les Editions 
MEV vous proposent des reliures toilees 
propres a recevoir six numeros, soit 
tin an de documentation. 



Une fois reliees, les revues forrnent 
ww livre agreahle a utiliser et insensible 
aux manipulations repetees. 

Ces reliures sont de couleur Bordeaux, 
le logo 'Pom's' est frappi au dos et un aplat 
est reserve pour nuter I'unnie. 

Reliures Pom's : 60,00 Frs franco 



J 
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ProDOS etfichiers 
detruits . 

Patrice Neven 



Si vous avez tendance a 
'bidouiller' en assembleur dans 
les meandres de votre Apple, il 
peut vous arriver d'exciter les 
adresses fatidiques situees vers 
SCOEO, qui declenchent les 
routines 'hardware' d'ecriture sur 
disque. 

Vue l'heure souvent tardive, le 
desordre regnant sur le bureau, et 
le walkman qui vous distille une 
melopee hypnotique, la conse- 
quence quasi-assurge est l'efface- 
mcnt total d'une piste, souvent la 
piste zero. 

Sous DOS 3.3, cela affectait 
rarement l'intdgrk^ logique de la 
disquette. En revanche, sous 
ProDOS, l'ensemble des poin- 
teurs internes permettant d'acce- 
der aux fichiers ont disparu et la 
disquette est apparemmcnt bonne 
pour la casse.- . . 

Apparemment seulement car, 
avec un peu de patience et 
d'habilete, les fichiers pourront 
etre restaures. En effet, ils sont 
toujours presents mais ProDOS 
ne sair pins les retrouver. 

C'est done par n£cessite que sont 
nees les trois commandes 
suivantes ; 

• INDEX, pour retrouver tous les 

blocs index des fichiers ; 

• RBLOC pour lire directcmcnt 
un bloc en rnemoire ; 

• WBLOC pour ecrire direcierneni 

un bloc en rnemoire. 

Elles sont entierement compa- 
tibles avec la routine CMDLO AD 
(Pom's 20). 



Utilisation 

Recuperer l'integrile des fichiers 
ne peut pas etre une operation 
automatique (ne revons pas !). En 
revanche, ces commandes ad- 



ditionnelles vous aideront consi- 
derablement, pourvu que vous 
ayez une connaissance minimum 
de la structure d'un volume 
ProDOS. 



; Blocs 


Contenu 


! 0-1 


Image du programme j 




execute lors du 




dernarroge du disque 


| 2 


Premier bloc du 




directory 


j 3-5 


Suite du directory 


i 6 


Carte des blocs 




utilises 


\ 7-279 


Blocs Hbres, Index 




ou donnees 

— 1 



Dans mon cas, le demarrage 
incontrole du disque a eu pour 
effet non seulement d'effacer 
route la piste z6ro done les blocs 
a 7, mais en plus de la rendre 
inutilisable. Elle avait 6t6 
rcformatcc dc fa?on fantaisistc, cc 
qui donnait des bniits inquietants 
lorsque j'essayais de faire ne 
serait-ce qu'un CATALOG. 

Pour observer les causes du 
desastres, il suffit de charger un 
Nibble Editor et de comparer la 
piste avec celle d'une autre 
disquette. II est necessaire, de 
toute fagon, de reformater la piste 
endornmagee, avec un ulilitaire 
permettant un formatage partiel 
d'une disquette, puis de recopier 
la piste issue d'une autre 
disquette ProDOS (votre copieur 
prcfenf fait probablcmcnt l'af- 
faire). 

Ceci fait, on dispose d'une 
disquene bonne en apparence, 
mais toujours inutilisable, car le 
* directory' recopie n'aiguille pas 
sur les bons fichiers. Ainsi, avant 



de modifier le directory, il faudra 
connaitre les emplacements de 
tous les fichiers k rdcupdrer. 
Nous allons done devoir les 
localises grace i la commande 
INDEX. 



La commancle 
INDEX 

Pour comprendre le fonction- 
ncmcnt dc la commande index, il 
faut etndier la structure d'un 
fichier sous ProDOS. Dans la 
majority des cas, e'est-a-dire pour 
les fichiers de plus de 512 octets 
et de moins de 128Ko (Sapling 
files), il est constant ainsi : 

• un bloc index contient tous les 
numeros dc blocs sur lcsqucls 
le programme est enregistre ; 

• puis, eparpilles sur la dis- 
quette, on trouve ces blocs. 

Sous ProDOS, les fichiers de 
moins de 512 octets (seedling 
files) sont pratiquement impos- 
sibles a retrouver car, etant donne 
qu'ils tiennent sur un bloc, ils ne 
sont pas localises par un bloc 
index. Les fichiers de plus de 
128Ko et moins de 16 megas 
(tree files) sont localises par un 
bloc index "maitre", e'est-a-dire 
un index qui pointe vers un 
ensemble d'indcx, qui pointent a 
leur tnur vers les blocs de 
donnees du fichier. 

Ainsi, lorsqu'on ne peut plus se 
fier au directory pour retrouver 
ses fichiers, le mieux est de 
chercher les blocs index. La 
commande INDEX va lire les 
blocs du disque un par un, et 
tenter de determiner si un bloc 
peut ou non, etre un bloc index. 
Elle a toutefois besoin que vous 
lui fournissiez le nombre de blocs 
que contient la disquette : 
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• 280 pour un disque 5,25 
pouces ; 

• 1600 pour un disque 3,5 
pouces ; 

• 127 pour le disque virtuel en 
memoire aiuciliaire. 

Les valeurs pour les ProFile et 
autres disques durs sont simples 
k determiner, puisqu'un 
CATALOG affiche le nombre 
total de blocs. Bien sur, micux 
vaut avoir de la memnire car, si 
c'est de votre disque dur don: il 
s'agit, vous n'en n'aurez 
peut-eire pas un second sur lequel 
faire un essai... 

En cas de doutc, donnez un 
nombre superieur a la realite : 5 
partir d'un certain nioinent, 
INDEX affichera une suite 
ininterrompue de numeros de 
bloc en inverse ; vous en deduirez 
que le nombre de blocs du 
volume est immddiatement 
inferieur a cette suite. En regie 
generale, tout numero de blue 
affiche en inverse indique qu'il 
est impossible de lire ce bloc. 



n' bloc suivmrt 



n' bloc prSc&dent 




$12= 18 fichiers 
dans le catalogue 

$27: 

2 m fichier de 2A 256 blocs 
7= longueur dunom 



$G ' C*GSt un iichiar hinaim 
nb de blocs : 3 



second fichier 

Ce fichier contient 
$000236 octets 
(566 en ddcimal) 

Lsixrn 



nqflR: no 

0990: 00 

0996; 00 

09A0: 27 

09A8: 00 



42 41 53 49 43 2E 

59 53 54 45 4D 00 00 

PP ?<» OO 15 00 00 ?ft 

00 00 00 00 00 00 21 

20 D2 AB 00 00 02 00 

43 4F 4£ 36 43 52 54 

00 00 00 00 00 00 00 



le bloc n ' $0008 est le bloc 
d'index, c'est ce n' qu'on 
modifiers 

AUX_TYPE:$7000 

Comme ce fichier est 
du type binake, il s'agit de 
son Q&rcssc do chorgcrncnt 



. Bt . . . . 

■CONVERT 



Le bfoc n' 2 (premier bloc du catalogue), tel qu'il est affiche a I'ecran 
apres la commands 'RBLOC 2'. Pour modifier le numero de bloc index du 
premier fichier par example (n' trouve a J 'aide de la commando INDEX), 
passer en moniteur (CALL - 151), puis avec le curseur, retire la Hgne 
'Q938;.„' en modifiant au passage le numero. Reecrire le bloc en faisant 

WBLOC 2. 

Pour beneficier des commandos RBLOC, WBLOC et INDEX, 11 aura tallu faire 

'- BLOC et '- INDEX'. 



INDEX s'inspire de la routine 
FIB publiee dans "Beneath Apple 
ProDOS", mais en ameliorant 
grandement les performances. 
Avec INDEX, un bloc index est 
automatiqucmcnt detecte conmie 
tel (a l'exception des derniers 
blocs de directory) ; au contraire 
FIB produisait une tres longue 
liste de blocs potentiellement 
index, dont bien peu l'etaient en 
realite. L'algorithme utilise est, 
en effel, plus discriminateur. 

Durant l'execution de la 
commande, des numeros de blocs 
seront affiches (en affichage 
normal). Ce sont les blocs 
presumes etre index. Sortez-les 
sur impiimante, ou notez-les, car 
nous allons maintenant les 
utiiiser. 

Les commandes 
RBLOC & 
WBLOC 

RBLOC et WBLOC sont deux 
commandes suppl^mentaires : il 
faudra lire un bloc par RBLOC, 



le modifier en memoire en 
utilisant le moniteur de I'Apple 
(accessible par call - 151), 
puis reecrire le bloc par WBLOC. 

L'cxdcution des deux commandes 
affiche egalement a I'ecran les 
premiers octets du bloc et son 
adresse d'implantation. Ainsi, si 
la premiere adresse est $900, 
alors le bloc se trouve en 
$900-$AFF. Les routines char- 
gent et dechargent uniqucmcnt la 
memoire vive situee apres un 
evcniuel programme Applesoft et 
ses variables simples. En 
consequence- il est preferable de 
ne pas modifier un programme, 
on l'executer, enrre le RBLOC et 
le WBLOC correspondant. 

II est maintenant preferable de 
s'assurer, par 1'utilisation de 
RBLOC, que chaque bloc detecte 
par la routine INDEX correspond 
bien a un index de fichier. En 
paniculier, le mgme numiro de 
bloc ne doit pas apparaitre deux 
fois. 



La structure du 
Directory 

Des lors, nous avons toutes les 
informations necessaires pour 
re-inserer nos fichiers dans le 
directory. Pour lire le directory, il 
faut se rappeler que celui-ci 
commence toujours en bloc 2 ; 
c'est le hloc-c!6. Puis, selnn le 
type de disque, il continue sur 
plusieurs blocs cons^cutifs. En ce 
qui concerne la structure du 
directory, seuls les octets 
impliques dans la recuperation 
des fichiers sont signalcs dans la 
liste qui suit. 

En d6but de chaque bloc 
directory, on trouve toujours 
ceci : 

$00-01 num6ro du bloc pr6c6- 
dent du directory pre- 
cedent. Si mil, on est 
dans le premier bloc ; 

$02-03 numero du bloc suivant 
du directory. Si nul, on 
est en fin de directory. 

On ne touche pas a ces blocs 
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qui ne serveni qu'au chainage 
interne, immuable par type de 
support. 

$25-26 FILE_COUNT 

Nombre de fichiers 
actifs dans le catalogue. 

A mettre k jour, en fin de 
travail, lorsque Ton saura 
exactement combien de fichiers 
sont k recupdrer et k lister lors 
d'un CATALOG. 

Ensuitc, a partir dc l'octct $2B, 
sont placfes 1 3 series de $27 (39) 
octets qui decrivent individuel- 
lement les fichiers stockes. Pour 
chaque s6rie, on trouve : 
$00 STORAGE_TYPE/ 
NAME_LENGTH 
type de fichier/longueur 
du nom, au format 
TTTTLLLL. 

Le type peut prendre les 
valeurs ; 

$0 Entree effacee, disponible 

pour reutilisation 
$1 Seedling file (1 bloc) 
$2 Sapling file (2 a 256 

blocs) 

$3 Tree file (257 a 32768 
blocs) 

$D Sous-catalogue 

$E Premiere entree d'un 
sous-catalogue 

$F Premiere entree du catalo- 
gue (voir precedemment) 

$0I-0F FILE_NAME 
nom du fichier. 

Au ddpart, micux vaut soit ne 
pas y toucher, soit y mettre tin 
caractere alphab^tique. Les 
commandes RENAME seront 
pour bien plus tard. 

$10 FILE_TYPE 
type du fichier 

Les types qui peuvent nous 
interesser sont : 

$04 TXT fichier ASCII 
$06 BIN bin aire 
$0F DIR sous-directory 
$19 ADB hasededonnee 

AppleWorks 
$1A AWP traitement 

de texte 

AppleWorks 
$1B ASP tableur 

AppleWorks 



$EF PAS PASCAL sous 
ProDOS 

$FC BAS BASIC 

Applesoft 

$FE REL programme 
langage 
machine 
relogcablc 

SFF SYS systeme 

Pour determiner le type appro- 
prid, il sera preferable d'utiliser 
la routine TDUMP du numero 
20 de Pom's afin d'afficher le 
fichier et en deduire sa nature. 

$11-12 KEY_POENTEUR 

numero du bloc index. 

A modifier aussitot que l'on a 
ulilis6 INDEX et verifie 1'au- 
thenticite des blocs renvoyes. 

$13-14 BLOCKS_USED 

Nombre de blocs utili- 
ses par le fichier. 

Cela comprend les blocs index 
plus les blocs de donn£es. 
Modifier ceci en fonction 
encore de ce que le bloc index 
a donne. 

$15-17 EOF 

Longueur du fichier sur 
3 octets. 
Au depart, y mettre 512 fois le 
nombre de blocs trouve. 
Ensuite, il sera toujours plus 
facile de le modifier par voie 
logicielle. 

S1F-20 AUX_TYPE 

depend de FILE_TYPH 

TXT Longueur d'enregistre- 
ment (paramfcne L dans 
OPEN) 

BIN Adresse de chargement 
(parametre A dans 
BSAVE) 

BAS Adresse de ch argement 
(lorsque sauve par 
SAVE, normalemem 
$801) 

VAR Adresse des variables 
(sauvees par STORE) 

SYS Adresse de chargement 
(habituellement $2000) 

II est quasiment impossible de 
fixer ces adresses, k moins de 
se les rappeler, ou que le 
fichier soit issu d'un logiciel 
qui sauve toujours a la meme 
adresse. 



Les autres octets de chaque serie 
sont hors-propos ici, et d'ailleurs 
non indispensables (par exemple 
les dates de creation et 

modification). 

Apres avoir 
retrouve 
les fichiers 

Voila, logiquement une fois tout 
ceci termine, on devrait pouvoir 
prendre les utilitaire ProDOS et 
sauvegarder tous nos fichiers sur 
une bonne disquette ProDOS, car 
rapellons-le, ce que nous avons 
fait suffit seulement a reconnecter 
des fichiers au directory, et non k 
remettre la disquette entierement 
en 6tat. Entre autre, le schdma 
d'occupation des blocs n'est pas 
mis a jour, et il est done imperatif 
de ne sauvegarder aucun fichier 
sur le disque. 

wSyntaxe des 
commandes 

Apres avoir fait : 

-INDEX 
ct 

-BLOC, 

vous disposez des commandes 
suivantes : 

INDEX <nb de blocs > 
[, S<num6ro de $lot>] 
[,D< numero de drive >] 

RBLOC <numero du bloc> 
[,S<nuinero c/e slot>] 
[, D<numero de drive>] 

WBLOC <numero du hlno 
[,$<numero de sluL>] 
l f D<nurn£ro de drive>] 

Par exemple : 
INDEX 280, S6 
INDEX 1600 
RBLOC 173,S5 t D2 
WBLOC 173 

Pour lc disque virtuel /RAM, 
prendre S3.D2. 

Liste des fichiers sur la 
disquette Pom's 

T . INDEX . CODE 

source Big Mac (format texte). 
commande INDEX 
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T - BLOC . CODE 

idem pour commandes 
RBLOC&WBLOC 

INDEX 

module executable 
BLOC 



Les commandes s'installent par 
un simple BRUN sur les modules 
exdcutables. 

a 



ProDOS 



module executable Au verso de la disquette d'accompugnemenl (face 
nommee IPOMS29I), les fichiers sont au format ProDOS. 



Source T.INDEX.CODE' 

Assembleur Big Mac, format TEXT 



9 



LST OFF 



ORG S2100 



INDEXi Peraet de localiaer toua lea 
bloci euaceptlblee d'acre do 
blocs index. 



10 ■•>>•••••>-••.>-••••..•........•••....* 

11 

12 •— 

13 * Syr.taxe: 

a* • 

13 " INULA <COtai> |.S<iiat>| |.D<drive>J 

16 • 

17 • La ^r^rdinM va lir 

18 ■ Juiqu'iu nombc* Cot 

19 • - --- %\ ; - hlo 

20 • bloc index, U affi 

21 • 

" 

23 

24 . 

25 • labels 



e tous lea blocs du dlaque 
qu'on lui lndique dona 
est susceptible d'tcra u 
che son numero. 



28 SrNT_EIin - 

79 PT* « 

30 LINNUM 

31 STRENO - 

32 FRETOP 

33 OLDTXTPTR = 
35 BUFADPtl = 
3fi 9UFAOB2 - 

37 rnnRFT = 

38 TXTPTR ■ 
39 

40 IN 
41 

Ai .-'".*■. ^ - = 

43 DEPSLT ■ 

41 SET DRV 
45 XTADDP. 



47 XCKUH 
46 PBITS 



4!t YPATHl 
10 SADGALL 



51 ENTRY 
S3 svirn* 



53 

54 FRHNL'H 



S6 LINPTR 
37 COUI 



5S0 
S6D 

scr 

ST9 
500 
SAB 

CAD 

S*l 

538 



5BECC 
5BE3C 
33E3D 
S3ES0 

SMSJ 

5BES3 
SBS54 

SBE6C 

9BE.8B 

JBF00 
4BF0F 



9D067 
5E7S2 



SED24 



SFE80 
SPKB4 
SFF58 



&■ INVERSE, 

59 WORMAL 

60 PITS 
61 

63 • Valldtte de 
(4 

65 

bb START CLD 

67 LDA •>F1N+S0 

68 LDA #>LOSG 

69 V OLDCMC IDA RTS 



; Code du menage 'SYNTAX 
ERROR' 

; Polnteur temporalre 
; RA*nlr«r H f r.FTAna 
; Adresse du debut de la 
zone libre 

; Adresse de la fin de la 
rone Ubre 

; Sauvegarde de TXTPTR 

; Code du Carriage Return 

; Adresse de la premier* 

mjlile du blue lu 

; Adresse de la secondc 

reoitie du bloc lu 

.' Routine do prise de 

car AO.tr re 

; Polnte sur le caractere 
a prendre 

; Buffer clavier 

AlClcftaqe de 1'erreur 
; slot par aefaut 
■ Dilve par defauL 
J Toince adresse de la 
cowinde eat erne 
: T.nnq>i*ur Hu not" de la 
conrcande nolns un 
; Numero de eomnande 
; Indlcruent les 
paranetres valables 
; Pointe sur le noro de 
volume 

Traduic 1'erreur pour 
le DI 

/ Point d'encree du Mil 
; Vm a la routine de 
tea tt* Wot ti*9 ereeurs 

; Range valeur pol ntee 
per TXTPTR dans FAC 
; Transformo FAC en 
entler 2 oct (LINNUM) 

; Afflche X ec A 

; AC dene le caractere se 
LruuvanL dana A 

; Afflche en Inverse 

J Afflche en normal 

; rnnri»nr im *TS 



Ctol iqatolre pour ProDOS 
100 ; Convention pour 

CMP LOAD 
0100 



70 


LDA 


VPATH1 


> PuinLe vers comnaride 
pour determiner si 


71 


STA 


PTU 


I o'eat la noire 


72 


inn 


VPATH1 + 1 




73 


STA 


PTA'l 




74 


LOT 


11 




75 COMPAR 


LOA 


(PTP) ,Y 


; Cent INDEX ? 


76 


CMP 


COM HAND- 1 


Y 


77 


BNE 


NO_CHD 


; non. alcrs retour au 

ProDOS 


7a 


iNr 






79 


CtY 


♦ 5*1 




• 


DCC 


COMPAR 




81 


BCS 


BOKKECMD 


l C'eat INDEX alor* on 
peut y *ll*t 


02 








83 NO_CMD 


SEC 




: lndique que la cr>mmjind«> 
n 'est pas a nous 


84 


JMP 


(V OLDCMD.ll 


15 








87 • 

ee 


ProDOS etudle 


la llgne 


89 








90 RfWJNrpMn 








91 


OEY 




1 Osraande a ProDOS 

d' examiner la coimande 


92 


DEY 




; 11 ne dolt pas y avoir 
de parametres 


93 


STY 


XLEN 




94 


LDA 


to 




93 


STA 


SISfcKK 




96 


STA 


XCNUM 




97 


LDA 


10 


Pes de parametres; 5 00 
en (Pbice) 


98 


STA 


PUTTS 




99 


LDA 


10 




00 


STA 


PBITS'l 




01 V_SUITE 


LDA 


SUITE 


; Indlrjue radrease du 



102 
J. 03 
104 
105 
106 
107 

1 flfl SUTTR 
109 



110 
111 
312 
113 
114 
115 
116 



LDA 
STA 
LUA 
3TA 

CLC 
RTS 



V_SUITE-1 
XTADDR 
V_SU1TE+Z 
XTADDR* 1 



to 

HO CHD 



C'etalc blen pour nous 



.* SI pas d'erreur. on 
continue 



Lecture du 



nombre de blocs 



117 

11S 
119 
120 

121 

122 

113 

124 

1*5 

126 

127 

128 

129 
130 
131 
132 

133 

L34 

135 

136 

137 • 

1J8 •- 

139 



LDA TXTPTR 



LDX TXTPTR*; 



. Seuveyatde die TXTPTR 
pour que l'eHecuclon 
; d'un prograrrvne Baeio 
pulsse Mm contlnotr. 



STA 

STX 



OLD TXTPTR 
OLD TXTPTR*! 



LDY XLEH 

I»Y 

IMY 

TV A 

Clf 

adc vPArm 

STA TXTPTR 
LDA VPATH1*1 

ADC #0 

STA TXTPTR t 1 

RD MBR 



STA 
STX 



TOT_8LOC 
TOT BLOC-1 



Oil 36 crouve la flA du 

not de commande ? 

,* Sert a lire la suite: 

numero ae Dloc, 

; puis les parametrvs 

eventucla (a ct D) 

/ Pour cela, on ae sect 

da TXTPTR: 

.' On addLtlonne la 

longueur du mot-cle 
; (INDEX) au debut de U 

llgne de coramande. 

f On a aiors le debut de 

1 ' operande . 

; C'est ce gu'on met en 

TXTf TR. 



; On va Lire le norre>r« 
ijii! »«^ pnl nri 

1 Ce sera le bloe final 



Recapitulation 
'INDEX' 

Apres avoi' saisi ce code sous 
moniiQur, vous la sauvegardoroz 
par BSAVE INDEX,AS2000,LS205 

Les codes de $2000 a S20FF 
corrn^prinriflnl pfngrHmme 
CMDLOAD (Pom's 20). 



Lecture des 



parametres s'U y en a 



2000:AD 


00 


BF 


C9 


4C 


FO 


05 


A9 


?ons : ft? 


4C 


ED 


vr> 


AD 


4D 


BE 


P0 


2010:05 


A» 


15 


-4C 


00 


DE 


AD 


04 


2018:21 


69 


00 


20 


98 


20 


90 


05 


2020 :A9 


OE 


4C 


09 


BE 


CD 


02 


21 


2026:90 


f6 


AE 


08 


BE 


8D 


08 


BE 


2030 :SE 


07 


21 


AE 


07 


BE 


SE 


06 


2036:21 


AO 


00 


ec 


07 


BE 


48 


E9 


2040:21 


8b 


3C 


68 


38 


E9 


04 


85 


2048:74 


A9 


21 


85 


49 


84 


48 


AO 


2050:00 


Bl 


48 


F0 


27 


20 


8R 


F& 


2058:A4 


2P 


CO 


02 


DO 


OF 


Bl 


48 


2060IC9 


21 


90 


09 


CD 


02 


21 


BO 


2068:04 


65 


3C 


91 


48 


A5 


48 


38 


2070:65 


2F 


85 


48 


A5 


49 


69 


00 


207fi:S5 


49> 


DO 


D3 


AO 


00 


A9 


21 


2060:64 


3C 


65 


3D 


is 


6D 


04 


21 


20B8:B4 


42 


88 


84 


3E 


85 


3F 


AD 


2090:08 


BE 


85 


43 


C8 


4C 


2C 


FE 


?098:fin 


FRj 


20 


A5 


74 


18 


69 


04 


20A0:8D 


FC 


20 


66 


3D 


CE 


FC 


20 


20A8:b'0 


47 


AD 


FC 


20 


8D 


FD 


20 


20B0:AD 


FO 


20 


48 


4A 


4A 


4A 


AA 


20BB:68 


2& 


07 


A8 


B9 


F3 


20 


3D 


2000:56 


BF 


DO 


Bl 


AS 


3D 


DO 


09 


20C8:B9 


F3 


20 


ID 


56 


BF 


9D 


56 


2OD0:BF 


AD 


FC 


20 


38 


CE 


FD 


20 


20D8:ED 


FD 


20 


CD 


FB 


20 


DO 


DO 


20E0:A5 


3D 


DO 


07 


18 


AE 


FD 


20 


20E8:E8 


8A 


60 


A9 


00 


65 


3D 


ro 


2OF0;B9 


36 


60 


60 


40 


20 


10 


08 


20F8:04 


02 


01 


00 


00 


00 


AD 


99 


?Tno:nfi 


A9 


23 


A9 


01 


AD 


58 


FF 


210fl:AD 


ec 


DE 


05 


40 


AD 


CD 


DC 


2110:05 


49 


AO 


01 


BX 


4B 


D9 


CA 


2118:22 


DO 


07 


C8 


CO 


06 


90 


F4 


21?0!B0 


04 


3B 


6C 


06 


?1 


88 


86 


2128:80 


52 


BE 


A9 


00 


SD 


OF 


BF 


2130I8D 


53 


BE 


A9 


00 


8L) 


54 


Bt 


2138:A9 


00 


8D 


55 


BE 


AD 


4E 


21 


2l<10:M 


IP 


PA 


sn 




BE 


An 


IP 


2148:21 


GD 


51 


DC 


1Q 


GO 


C9 


00 


2150:u0 


DO 


AS 


bo 


Ab" 


»9 


85 


79 


2158:S6 


7A 


AC 


52 


BE 


C8 


C8 


98 


2160:18 


6d 


6C 


BE 


85 


BB 


AD 


6D 


2168!BE 


69 


00 


85 


B9> 


20 


82 


22 


2170:8D 


DO 


22 


6E 


Dl 


22 


20 


AF 


2178:22 


20 


B8 


22 


F0 


28 


C9 


AC 


2180:D0 


F7 


20 


B8 


22 


C9 


D3 


DO 


2188:OB 


20 


B8 


22 


29 


07 


SD 


3C 


2190:&E 


4C 


79 


21 


C9 


C4 


FO 


03 


2198:4C 


8E 


22 


20 


B8 


22 


29 


03 


21A0:8D 


3D 


BE 


4C 


79 


21 


A9 


oo 


21A8:8D 


CA 


22 


8D 


C9 


22 


AD 


C5 


21D0;22 


AD 


AT 


21 


AE 


BO 


21 


6D 



Pom's n° 29 



141 

142 VKUL 



115 
146 
147 



14* 

ISO 

151 
152 
153 
154 

155 TE5T_D 

136 
157 

156 HOERRS 

159 
160 
1(1 

162 EOL 
163 

164 « 

165 • 

1« ' 

167 
161 

it* 

170 
171 

172 

173 • 

174 • 

17S 

176 VC PARM 



JSR IN_PTR ; Reflx-e le polnteur au 

debut du butler 

; frena caractere jusqu'a 
ce que aoit una 
. vlrgule. car cela 
algnifleralt un numcre 
; da drive afc/pe da ilot 
A lire. 



BNE CHXNG2 



peut etre un index 
; Slnon, on fait una 
autre verities: ion 



J5H 
BEO 
CMP 

BNE 
J5R 
CMP 
BNE 
-7 SB 
AMD 

sta 

JMP 



EOL 

CH_VRGL 
CHH_GET 
#"S" 
TE3T_D 

1*00000111 
DEFSLT 
CH VKGL 



; Prend ie caractere de 
comande 

f C'est le changerwnt de 
slot t 

. Null, dlu:a peuL'eliv 
oat ce Im drlva ? 
f f>)»1 »«r 1* lirtii'wwiiil 
Slot ? 

; A melt re chez ProDOS 



CMP #"D" 



: C'est le changeraent de 
Drive ? 



BEO 
JMP 
JSR 

AND 
STA 
JMP 



NOERJiS, 
EKA_3TX 
CRR_CKT 

»%00000011 
DEFDRV 
CH VRGL 



; Quel I • nouvaau 



lecture oes diocs 



; Coiemenoe iu bloc 



CTA DLOC_OEP-1 
STA BLOC DEP 



Lecture du 



LDA PARH 



177 



LDA VU I'AfM'-l 



178 




LDX 


VC_PARM^2 


179 




STA 


vc_ml: 


ISO 




STX 


vt_mli*i 


181 








182 




IDA 


DEFDRV 


183 




AND 


nooooooio 


104 




ASL 




165 




ASiL 




166 




ORA 


DEFSLT 


187 




ASL 




1SB 




AE1 




1 SI 




a«x. 




190 




ASL 




191 




ST* 


PABH'l 


192 








193 




LDX 


STBEHD+1 


194 




I NX 




1*5 




cue 


FRETOPtl 


196 




8CC 


Fix_aur 


191 








1 «R 




t.n* 


l«56 


199 


ERR 


JMP 


ERH_EXIT 


200 








201 


FIX_BUF 


STX 


BUFFU 


202 




JSR 


SD_BLCC 


207 




Bca 


EAR 



bloc lndloue 



; Kecessaire A cause du 
re log* men £ 

; indlque au est la tAOLe 
Ue parametres 



* Codage du rurerc 
d' unite sous la fori* 



I Instaile le buffer dans 
la zone llbre 



f S'll n'y en a pas 
asj«r. alers nn «nrr 
; "NO BUFFER AVAIA3LE ' 

; Slnon, enreglstre la 

page du buffer 

1 Puis va lire le bloc en 

question 

.- Au cas oq 11 y aurait 
une erreur 



204 

205 " 

206 * 

207 ■ 

208 

209 



Analyse du 



212 
713 
214 
215 
216 
217 
211 

Z19 
220 
231 



LDY BUFF 

LDX BUFF*1 

SIX BUTADA1 

STX BUTADPl'l 
INK 

STY BUFADR2 

STX BUFADR2-1 



; Prepare des polnteurs 
pour indlquer 
; I'adresse de la 
premiere page du Duffer, 
; et celle ae la seconde 
page du 1/uCfec, 



le bloc peut etre un 
Index 



LDf fO f So place au debuL du 

bloc 

JS* UBFZ ■ Va verifier a'il *it 

comp let erne nt nul 
BEO KXTBLK ; SI oul . alors ca ne 



225 

22b VRF2 

127 

331 

229 

230 

231 VRFBTS 
232 

333 CHSN3 2 

334 
235 

236 CHKNG3 

237 
236 

23S 

240 

241 
243 
243 

244 NXTBYTE 



LDA isutADSD.i I La net node a ete 
-■ ■ . ex r .- . ctiangee 

ORA (BUFADRZKY . pax rapport A ' Ber.ee; b 
Apple ProOOe' 

>•'■• VRFBTS | Car all* donnait crop 

de blocs non-index 

INY ; Avec celle*ci tous lea 

essais 'alts 
BNE VRFZ t seul dernier bloc du 

catalog est Indlque 
; A tort corona etant un 
index. 



RTS 



245 

246 

147 

248 
249 

250 
251 
252 
253 VI 

254 

235 
Z-56 

M7 
258 



2 60 
2 61 V2 



LDY 
LDA 

B£Q 

STA 

LDA 
SVk 

INY 

BEO 

LDA 
CHP 

acc 

BNE 

LDA 
CKP 
9CS 
LDA 



JS9 
BEO 



fO ; Lm prir.elp*; taitar ml 

tous lea nueeros 

COHPTEyR : 16 bits different* les 
uns des autres. 
; puis que index ne peut 
co n t en 1 r 2 foil le 

CCHPTE'JR ; new bloc. 
(BUFADRll.Y : Nutaero zero Indlque la 
tin de la iiste 
i ; Done si on y est. c'esi 
un indew 

TEMP ; Sinon on stocke pour la 

vert f i cation 

(BUFADA2) a Y 
TEMP.l 

; On corpare au nunero 
d'apres 

£01 } SI on est A la tin du 

U« 

ISUFADUZ) r ? 

TOT_BLCC-l / Cj"«ro n» pauc tlr* 
•upirleUe 4U fthf »*« 

VI 

»XTBLK i Slnon. paa un bloo 

1nd»v a>'*«" r*«r» 

(BJFADR1) . Y 
TOT BLOC 
NXTBLX 

(BUFADRl).Y ; SI on torabe sur un 

zero, ca sigMfle 
V2 . peut-etre una fin de 

usee. 



EOl 



BNE NXTBLK 



CM? TEMP 



. Done on icgaxde »l tc 

qui suit eat nul 

; v« v*ri f imr 

i SI oul. alors on a flnl 

1 1 index 

; Sinon, ce n'etalt pas 
un LDdex 

: Ce n'etaic pas un zero, 
done on verifle 



2 62 


8KE 


SXTBYTE 


. le boa du nuwio. 


363 








264 


LDA 


1B0FADR3J . 


Y .' SI panill an bai. ll 








se peut rrue le 


265 


CMP 


TEHP-»1 


I havt solt different... 


2£fi 


BSE 


SXTBYTE 


.* SI out. alors prochaln 








octet 


267 


BEO 


NXTBLK 


; SI non. prochaln bloc 


2 68 EOl 








2B9 


INC 


CtRPIEUR 


; Tons lea octets etaien 








UlCXtiiQub A tvlul 


370 


BNE 


C1UCNC3 


i teace. done on prend 1 








■ulvant . 


971 








272 GCOD_ONE 








273 


cpy 


10 


; SI ler octet du bloc 








est un zero, alors 


276 


BEO 


SXTBLX 


; ca ne peut pas etre un 








index 


273 








276 COMT 








277 


jen 


P BLOCK 


; Afflchc lc nunero dc 








bloo 


?7a 


.TMP 




I Pa»«e au prorftain Hlor 


280 ■ 








2«U • 


SI 


le 


bloc peut etre index. 








af flcher 


282 • 

283 








2 84 PB1AXJK 








2 85 


LDX 


BLOC_DM 


. Affldiauje en d 








nunero de bloc, 


3*6 


LDA 


BLOC_DEP*l 


; tuivi d'un« uirgulw 








peur tous .-- ••ptrar 


2 87 


JSR 


LINPTR 




206 


JSR 


NORMAL 




289 


LDA 


t". 




290 


JHP 


COUT 





291 

292 ■ 



fassage au 



procnain dioc 



295 

296 NXTBLK 
297 



21B8:C2 


22 


BE 


C3 


22 


AD 


3D 


BE 


7i rn 


7? 


02 


OA 


OA 


0D 


3C 


BE 


OA 


21C8 


OA 


OA 


OA 


8D 


C6 


22 


A6 


6E 


21U0 


LS 


£4 


70 


90 


05 


A9 


56 


4C 


2 IDS 


90 


22 


BE 


ce 


22 


20 


BE 


22 


21E0 


BO 


F5 


AC 


C7 


22 


AE 


CB 


22 


21E8 


84 


AB 


BC 


AC 


E8 


84 


AD 


86 


21 FO 


AE 


AO 


00 


20 


FA 


21 


FO 


6D 


21F8 


DO 


OA 


Bl 


AB 


11 


AD 


DO 


03 


2200 


ce 


DO 


F7 


60 


AO 


00 


8C 


D2 


2208 


22 


AC 


D2 


22 


Bl 


AB 


FO 


3A 


2210 


SD 


D3 


22 


Dl 


AD 


BD 


D4 


22 




cs 


FO 


2A 


Bl 


AD 


CD 


Dl 


22 


2220 


90 


09 


DO 


41 


Bl 


AB 


CD 


DO 


2226 


22 


B0 


3A 


Bl 


A3 


DO 


08 


C8 


2230 


20 


FA 


21 


FO 


10 


DO 


2E 


CD 


2236 


03 


22 


DO 


DC 


Bl 


AD 


CD 


D4 


2240 


22 


DO 


D5 


F0 


20 


EE 


D2 


22 


2248 


DO 


BF 


CO 


00 


F0 


17 


20 


34 


22 50 


22 


4C 


65 


25 


AE 


C9 


22 


AD 


2258 


CA 


22 


20 


24 


ED 


20 


84 


FE 


2260 


A9 


AC 


4C 


ED 


FD 


LL 


C3 


ll 


2266 


DO 


03 


EE 


CA 


22 


AD 


CA 


22 


2270 


CD 


Dl 


22 


F0 


03 


4C 


AE 


21 


2278 


AD 


C9 


22 


CD 


DO 


22 


90 


F5 


2260 


19 


60 


AO 


00 


Bl 


36 


C9 


30 


2288 


90 


04 


C9 


3A 


90 


16 


AS 


40 


2290 


C9 


27 


F0 


OA 


25 


28 


FC 


06 


2298 


20 


8B 


BE 


4C 


OC 


BE 


20 


80 


22AG 


FE 


4C 


4B 


22 


ro 


67 


DD 


20 


IIM 


sir 


E ' 


Ab 


DU 


A6 


Dl 


60 


AO 


22B0 


00 


A2 


02 


84 


SB 


86 


39 


60 


22B8 


20 


Bl 


00 


C9 


80 


60 


20 


00 


22C0 


3P 


00 


C5 


22 


60 


03 


60 


00 


22CB;0C 


00 


00 


49 


4E 


44 


45 


50 


22D0: 


00 


00 


DC 


00 


00 









Recapitulation 
'BLOC 

Apres avoif sdisi t*# code sous 
moniteur. vous le sauvegarderez 
par BSAVE 8LOC.AS20O0.LS2A4 

Les codes de S2000 a S20FF 
correspondent au programme 
CMOLOAD (Pom's 20). 



INC BLOC_DEP : Passe au prochaln bloc 
tout en veriflant 



2OO0:AD 


00 


r^r 


C9 


4C 


FO 


05 


A9 


20ou:u? 


4C 


ED 


I'D 


AD 


4D 


BE 


FO 


2010:05 


A9 


15 


4C 


09 


BE 


AD 


04 


2018:21 


69 


:: 


20 


98 


20 


90 


05 


2C20:A9 


0E 


4C 


09 


BE 


CD 


02 


21 


2028:90 


F6 


jfcE 


oe 


BE 


6D 


OB 


— 


2030:BE 


07 


21 


AE 


07 


BE 


8E 


06 


2036:21 


AO 


CC 


8C 


07 


BE 


48 


E9 


204.0:21 


85 


3C 


69 


38 


E9 


04 


85 


2046:74 


A9 


21 


as 


49 


64 


46 


AO 


4iU3U:00 


Bl 


48 


FO 


27 


20 


8E 


F8 


2058:A4 


2F 


CO 


02 


DO 


OF 


Bl 


48 


?060:C9 


71 


90 


09 


CD 


02 


21 


BO 


2068:04 


65 


3C 


91 


48 


AS 


4B 


38 


2070:65 


IV 


Bb 


49 


Ab 


49 


69 


00 


2078:65 


49 


DO 


D3 


AO 


00 


A9 


21 


2060:84 


3C 


85 


3D 


18 


en 


OA 


71 


2 e s : e 4 


42 


se 


84 


3B 


85 


3F 


A3 


2090:06 


DE 


65 


43 


ce 


4C 


2C 


FE 


2C98:8D 


:3 


20 


A5 


74 


18 


69 


04 


20A0:8D 


FC 


20 


86 


3D 


CE 


FC 


20 


20A8:F0 


47 


AD 


FC 


20 


fiD 


FD 


20 


2 0B0:AD 


FD 


20 


40 


4A 


4A 


4A 


AA 


2 0rJ8:66 


29 


07 


Ab 


B9 


F3 


20 


3D 


20C0:58 


BF 


DO 


El 


A5 


3D 


DO 


09 


20C8:B4 


F* 


3D 


ID 


58 


BP 


9D 


58 


20DO:BF 


AD 


FC 


20 


38 


cc 


FD 


20 


20D8IED 


FD 


20 


CD 


to 


20 


UU> 


DU 


20E0:A5 


3D 


DO 


07 


18 


AE 


FD 


20 


20E6:E8 


8A 


60 


A9 


00 


85 


3D 


F0 



Pom's n° 29 



3QZ 



INC BiOC_DE?-l 

LDA BL0C_DEP»1 

CMP TOT BLCC+1 

BEQ ECC1 



303 GO L.l BL JMP VC PARM 



304 



; {ju'on ne sort pas aea 

UmiLen fueea par 
( la aonntnda, 0« coutc 
£acon. il on 

o>rr«r>ri» A Tin* plus do 
blocs qu'il 

; exlste, une erretr so 
produlra. 12 n'est 

J done possible de donner 

oju'on nor* re 

; lnferieur bu nombre 

maximum 



EO01 



305 
306 
307 
309 

309 • 

310 • 

3H • 

312 
113 
314 
315 

316 • 

317 • 

318 • 

319 

320 RD_NBH 
321 

322 



LDA 

cwp 

BCC 



BlLOC_DCP 
TOr_BtOC 
GO LIT BL 



C1X 



to«ut« du 



noirfcre point* par TXTFTR 



327 

328 SRR_SrX 

329 ERR_EKIT 
330 
331 
33Z 

333 
334 

335 

33 6 30_EBJt 
337 

338 

339 NO EBft 

340 

341 
342 
343 
344 

315 • 

346 ■ 

347 

341 

34 9 IN_?TR 
350 



tor 10 ; FRMNUM dolt tjmbet sur 

un cblfffre. 
LDA (TXTPTRJ ,1 I 5'assure que a'en est 

Uti, mals sans 
c«P 8'Q ; passer par CHRGET. qui 

iodic. TAIr"!**, 
I 31 un a un zTi . : re . 
o'eit bon. car FRMNUH 
! «' arret era A la fin 
nnmhrf . 

r Sl*on. on slQnale un* 
•rreur de syrtaxe. 

IDA 1S?nt_EP.R ; signaler sol-mcne, car 
FftHNUH tend 



DCC ERR 3TX 



CMP |"J 



3CC NO ERR 



CKP 

BEg 



DEQ 
JSR 



JSR 
JWP 



10_IAK 

#52e 

IO_ERR 
BADCALL 

JKP 

INVERSE 
CONT 



JSR FRMKL'M 



JSR GETADH 



; A diconnecter ProOOS 
lorsgu'll gepere une 
PUfWTeap ; Erreur. 



; Si on a frien un nombre, 
on le lie, le net 
; dans FAC puis net en 
encier dans linnub 



loa 
LDX 
RTS 



LINNUH 
LINNUM< 1 



Mec TXTPTR 



au debut de IN 



35! 



355 



ftTf TXTPTR 



STX 



353 
354 
355 

356 ■- 

357 • 
35B • 

day 

360 CHR_GET J»K 
3C1 CMP 

363 RTS 
363 

164 • 

365 • Diver 

366 • 

367 

36B RD_BL0C 
369 

37 VC_HLI 
371 

312 

373 PARH 
374 

375 nurp 

376 3L0C_DEP HEX 
377 

378 COMMAND ASC 
379, 

380 TOT BLOC HEX 

381 COMPTEUR HEX 

382 TEMP HEX 
303 

364 TIN 

365 LONC 

lie 



; Cette fols, on se place 

sur le buffer du 

; Clavier. Ligne ne 

uumnidiide y eat enilcrc 

. !Et ttockn en 

ca race e cc a A3C** avee 1« 

! Cornier bit 1 1 



CHRGET modlfLe 



JSF 
DPS 
OA 
ft 15 

DFD 
DPB 



ENTRY 
$90 
PA3M 



860 

nnoo 
oooo 



oooo 

00 
3000 



Source T.BLOC.CODE' 

Assembleur Big Mac, tormaJ TEX I 



ORG 3210 



INDEX: Pernr dm in/-»Ha»r too* loa 
blocs susceptLbles d'etre doa 
blocs Index. 



13 * Syntaxa: 

14 • 

15 • TNTlFIt <total> I.S<aLoe*J l.D<da-ive>) 

16 • 

17 ■ Le programme va lire tous les bloea du dlsson* 

18 • jusgu'au nombre. total qu'ori Lttl lndiaue dans 

39 • coraroande. 51 le bloc est susceptible d'etre un 

20 • bloc index. 11 afflche son numero. 

21 • 



27 

2B SrNT_ERR - 

29 ?TR ■ 

30 LTNNUH 

31 STREND 



3 3 OLDTXrPTR 
31 CP. 

35 3UFADR1 = 

36 BUFAOA2 - 

37 CBRGEr ■ 
JB TXTPTP 



40 IN 

41 

67 PBTNTFRR 

(3 DEFSLT 
ii DEFDRV 
45 XT ADDS 



46 XLEN 



47 XCNUM 
46 pairs 



50 BADCAU. = 

£1 ENTRY ■ 
52 5YSER3 

53 

54 FRKNUH 

■53 UETADR - 

56 LINPTR 

51 COOT - 

58 INVERSE - 

59 NORMAL ■ 

61 

62 ■ 

63 ■ 



S48 

S50 
$60 



cao 

$AR 



SAD 
SB1 



30200 

SBE0C 
SBE3C 
SBE3D 
5BE5 

SBE52 

SBE53 
Situs 4 



5BF00 
SBFOF 



SDD67 



5E024 

5FE80 
SFEB4 
SFF58 



.* Codp du B^«a*g* 'SYNTAX 
ERROR* 

I PaLnte'jr temporaire 

; Resulcait de GETADH 

; Adresso du debut de la 

zone llbre 

; Adresse de U fin de la 

zone llbre 

, Seuveijajcle d« TATPTR 

; Code du Carriage Return 

,- Adresso do la premiere 

iwiinA riii hloc lu 

; Ad re ssc de la seconde 

rroltle du bloc lu 

,* Routine de prise de 

carat ctere 

; Polnte aur le caractere 
A prendre 

f iwtter clavier 

/ Afflehage de I 'erreur 
t Slnf par Wifaut 
; Drive par defaut 
; Polnte sar adresse de 
la camoande externe 
; Longueur du nam de la 
commandc noina un 
; Numero de coimande 
; Indlquent les 
paramttres valables 
. rolnte sin le nam de 
vol um 

Tradulc l'orrour pour 
le RI 

; Point d'entrw du MI.I 
. Va a la routine de 
tral cement des erreurs 

; Range valeur polntee 
par TXTPTR dans FAC 
; Transforms FAC en 
entier I oct (LINWUM) 

; Afflche X oc A 

1 Kit I oho le oaraocere ao 
trouvant dans A 

; Afflche en inverse 

; Afflche en normal 

; corcienc un nrs 



validite de 



64 
«5 



20F0:B9 
20F8:O4 
SiOOtDfl 

210B:AD 

2110:65 
2118:22 
2150:22 
2128;D0 
Z130:BO 

2138:06 

71 40:?-) 
2148:02 
2150:8C 
2158 :8D 
2160:80 
2168:21 
2170;S1 
21 /8:8b 
2180:C8 
21 88: An 
2190:00 
2198:3A 
21A0:2E 
21A8:A5 
21B0;A1 
21B6;S6 
21C0:C9 
21C8:D3 
21D0:8D 
21D9;D0 
21E0:3D 
21E8;3D 

?1F0:B-F 
21F3:A5 

?200:ad 
?Z08:22 

?210:6E 
!218i90 
f220:Bl 
1228 :fo 
^230:BE 
f238:9E 
2240:AC 
^2-J8:A2 
2250:AB 
2258:FB 
2260:20 
22GQ:7F 
2<r70:dU 
2276:EC 
2280:08 
2288:60 
2290:60 

2299:42 
22A0:00 



38 60 
02 01 

A9 23 
6C BE 

40 AO 
A2 00 
E8 ce 

OS E6 
OF CE 
AO 01 
A * 80 
A* 81 

52 BE 

53 BE 
55 BE 
8D 50 
DE 16 
79 86 
98 18 
6D BF 
31 B9 
90 07 
22 20 
50 8D 
22 AO 
B9 20 
AC DO 
DO OS 
3C BE 
CI 20 
BE 4C 

BE 29 

OA OA 
79 AG 
9C 22 
8D 8E 
E8 8E 
OF A9 

00 C9 
20 8A 
4C 0C 
22 86 

A6 AB 

01 20 
20 DA 
C8 CO 
4A F9 
C9 20 
20 tD 

20 8E 
85 AB 
00 20 

02 52 

4C 4F 
00 00 



80 40 20 

00 00 00 

A9 01 AD 

55 IB AD 

00 Bl 48 

BD 91 22 

Bl 48 DD 

ca co 06 

A3 22 F0 
DO E6 38 
AE A3 22 
SD 8D 22 
A9 00 BD 
SD 54 BE 
AD 74 21 
BE AD 65 
60 A3 B6 
7A AC 52 
6D 6C BE 
69 (1(3 AS 
C9 30 90 
A9 40 F0 
67 DD 20 
AO 22 A6 
00 A2 02 
8C FP 20 
F9 20 IF 
20 IF 22 

4C BD 21 
LF 22 29 
BD 21 68 
02 OA OA 

OA OA BD 
7A 85 Dfl 
AD 01 22 

22 8E 8F 

9F 22 E8 

56 4C 2E 

OD F0 BF 

22 90 06 

BE 20 BE 

AB AC 9F 

\1 AC 20 
4A F9 AO 
FD A9 AO 
08 DO Fl 

AO 00 Bl 
B0 02 A9 

ro cs co 

PD A5 AB 
C9 BO 9(1 
00 BF 80 

42 4C 4F 

43 03 60 
00 



10 08 

AD 9 9 
58 FF 

6tj b& 
8D A2 
8D A3 
91 22 
90 T3 
06 A2 
6C 06 
CA DO 
88 88 
OF BF 
A9 00 
AD 64 

21 8D 
A6 B9 

BE ce 

85 BB 
R9 An 
04 C9 
03 4C 
52 E7 
51 8E 
84 38 

IF 22 

22 C9 
29 07 

C9 C4 

03 SO 

68 AD 
0D 3C 

<)r> ?? 

BG D9 

AE 02 

22 A6 

E4 70 

22 20 

4C ED 

*0 83 

FD AE 

22 84 

99 FD 
00 Bl 
20 ED 
A2 01 

AB 2 9 
2E 09 
U8 DO 
18 69 
ra in 
9C 22 

43 57 

00 10 



FIK-fiTART-60100 



GO 3? ART 


CLD 




; cbligatoire pour ? ra jus 


€7 


LOA 


#>FIM*30100 


; Convent. luii u>uui 








CHDLOAD 


M 


LOA 


*>LONC-S0100 


69 V.OLOCMD 


LDA 


RTS 




70 


LDA 


VPATH1 


; Polnte vers ccimande 








pour determiner si 


71 


STA 


PTR 


• e'est la notre 


72 


LDA 


VPATH1+1 




73 


STA 


PTR'l 




74 


LOY 


fl 




TS COM PAR 


LOA 


IfTK) . 1 


• Cost INDEX ? 


76 


CMP 


COMMAND -1.T 




77 


DUE 


NO_CMO 


non. alora ivtoui au 








ProDOfi 


71 


1NY 






79 


CPY 


15*1 




80 


BCC 


COKPAR 




SI 


BCS 


BONN ECHO 


C'est INDEX alors or 



peut y aller 



^4 compter de ce 
numero, les 
disquettes 
Pom's sont 
formatees... 

DOS 3.3 

soa° j d 



Pom's n° 29 



31 



82 

B3 NO CMD 



84 
85 
86 
87 



SEC 



; Indique que la commande 

n'est pas a nous 



JMP (V OLDCMD+1) 



FroDOb etuciie la ligne 



89 

90 BONNE CMD 
91 

92 



93 
94 
95 
96 
97 

98 
99 
100 

101 V_SUITE 

102 
103 
104 
105 
106 
107 

108 SUITE 
109 



110 
111 
112 
113 
114 
115 
116 



DEY 
DEY 

STY XLEN 

LDA #0 

ST A SY5ERR 

STA XCNUM 

LDA #0 

STA PBITS 

LDA #0 

STA PBTTS+1 

LDA SUITE 

LDA V SUITE+1 

STA XTADDR 

LDA V_SUITE+2 

STA XTADDR+1 
CLC 
RTS 

CMP #0 

BNE NO CMD 



; Demands d PiuD05 

d' examiner la commande 

; II ne doit pas y avoir 

de parametres 



; Pas da parametros : SO" 
en (Pbixa) 



; Indiquc l'adrcssc du 

recour 



; C'etait bien pour nous 



continue 



LecLute du 



noitibre de folcca 



117 

118 
119 
12U 
121 

122 

123 

124 

125 

126 

127 

128 

129 
130 
131 
132 

133 
134 
135 
136 
137 
139 

139 
140 



141 

142 CH VRGL 



LDA TXTPTR ; Sanvpgarde de TXTPTR 

pour que I'cxccuti-on 

LDX TXTPTR.*! ; d'un programme Basic 
puisse se continuer. 

STA OT.DTXTPTR 
STX OLDTXTPTR-U 



LDY XLEN 

INV 

INY 

TV A 

CLC 

ADC VPATH1 

STA TXTPTR 

LDA VPATH1+1 

ADC #0 

STA TXTPTR+1 

jsn rd_nbh 

STA TOT_BL0C 

STX TOT BL0C41 



; Oil se trouve la fin du 

mot de commande ? 

; Cela sort a lire la 

suite: num de bloc, 

; puis les parametres 

eventuels (S et D) 

; Pour ceia, on se .serr. 

de TXTPTR: 

; On additionne la 

longueur du mot-cle 

; (INDEX) au debut de la 

llujne de commande. 

; On a alors le debut de 
1 'operande. 

■ Cost ce qu'on met en 
TXTPTR. 



; On va lire le noinbre 

qui est pointer 

; Ce sera le bloc final 



Lecture des parametres s'il y en 



JSR IN PTR 



JSR CHR GET 



; Refine le pointeur au 
debut du buffer 

; Prend ca ract£re jusqu'a 
co que solt unc 



143 

144 

145 
146 
147 

148 

149 

150 

151 
152 
153 
154 

155 TEST_D 

156 
157 

15 8 N0ERR5 

159 
160 
161 

162 EOL 
163 

164 • 

165 • 



REQ 
CMP 
BNE 
JSR 
CMP 

one 

JSR 

AND 
STA 
JMP 



EOT. 
#"," 
CH_VRGL 
CHR_GET 
#"S" 
TEST_D 
CHR_GET 
#%000001U 



; virgule, car cela 
significrait un numero 
; de drive ul/uu ue »1ul 

a lire. 



DEFSLT 
CH VRGL 



; Prend le caractere de 
comma nde 

; C'est le changement de 
Slot ? 

; Non, alors peut~etre 
est-ce le drive ? 
; Quel est le nouveau 
slot ? 

A mettre chez ProDOS 



CMP (("D" 



; C'»sr le r.bangemRnt de 
Drive ? 



BEQ 
JMP 
JSR 

AND 
STA 
JMP 



NOERRS 
ERR_STX 
CHR_GET 

noooooon 

DEFDRV 
CH VRGL 



; Quel est le nouveau 

drive ? 



Boucle de 



lecture des blocs 













on 


167 










168 


LDA 


#0 


Conunenue au bloc 




169 


STA 


BL0C_DEP+1 






170 


STA 


BLOC_DEP 






171 

172 









173 » Lecture du 

17 4 . 

175 

17 6 VC PARM LDA PARM 



177 

178 
179 
180 
181 
1 R? 

183 
184 
185 
186 
187 
188 
189 
190 
191 
192 

193 

194 
195 
196 

197 
198 



LDA VC_PAKM+1 

LDX VC_PARM+? 

STA VC_MLI 

STX VC_MLI*1 

LDA DEFDRV 



bloc indique 



; Nec-essaire a cause du 
relogement 

; Indique ou est la table 
de parametres 



; Codage du numero 
d'unite sous la forme 
#%00000010 ; DSSS0OO0 



DEFSLT 



AND 
ASL 
ASL 
ORA 
ASL 
ASL 
ASL 
ASL 

STA PARM*1 
LDX STREND*1 
INX 

CPX FRETOP+1 

BCC FIX BUT 



; Installe le butter dans 
la zone libre 



199 ERR 

200 

201 FIX BUT STX BUFF*1 



LDA IS56 ; S'il n'y en a pas 

asaez, alora on sort 
JMP ERR EXIT ; 'NU BUFFER AVAIA3LE ' 



202 
203 

204 

205 *- 

206 « 



JSK RD_BL0C 
RCS F.RR 

Analyse du 



I Sinon, enregistre la 

page du buffer 

; Puis va liie le bloc en 

question 

; Au cas ou il y aurait 

una errour 



bloc 
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207 * 

208 
209 

210 

211 

212 
213 
214 
215 

21€ 

217 

218 ■ 

219 . 

22C 

221 

222 
223 

224 

225 

226 VRFZ 

227 

228 

229 

230 

231 VRFRTS 
232 

233 CHKNG2 
234 

235 

l'6b GHKNG3 

237 
236 

239 

240 

241 
242 

243 

244 NXTDYTE 

245 

246 
247 

248 
249 

250 
251 
252 

2$3 VI 

254 

255 
256 

257 
258 



LDY BUFF 



LDX BUFF+1 



STY 

STX 
INX 
STY 
STX 



BUFADR1 

BUTADRl + l 

BUFADR2 
BUFADR2+1 



; Pr&pare> des pointours 
pour indiquer 

; l'adresse de la 
premiere page du buffer, 
.* et celle de la sprnnrle 
page du buffer. 



Teste si 



le bloc peut etre un 
index 



LDY #0 

JSR VRFZ 

BEQ NXTBLK 

BNE CHKNG2 



; Se place au debut du 
bloc 

; Va verifier s'il est 
completement nul 
; Si oui, alors ca ne 
peut etre un index 
; Sinon, on fait unn 
autre verification 



LDA <bWADRl),Y ; La methode a ete 
entierement changee 
ORA (RIIFADR2) , Y ; par rapport a 'Beneath 

Apple ProDOS' 
BNE VRFRTS ; car elle donnait trop 

de blocs non-index 
INY ; Aver: relle-ci et tous 

les cssais faita 
DNE VRFZ ; seul dernier bloc du 

catalog est indique 
; a tore comme etant un 

index - 



RTS 

LDY 
STY 



10 

COMPTEUR 



EOI 



LDY 
LDA 

BEQ 

STA 

LDA 
STA 

INY 

BEQ 

LDA 
CMP 

DCC 
BNfc 

LDA 
CMP 
BCS 
LDA 

BNE V2 
INY 



COMPTEUR 
{ BUT ADR 1 ) 

G00D_0NE 

TEMP 

(BUFADR2) 
TEMP+1 



; Le principe: tester si 

tons Ipb nnmeros 
; 16 bita different^ les 
uns des autre3, 
; puisque index ne peut 
contenir 2 fois le 
; memo bloc. 
, Y ; Numeiu zero indique la 

tin de la liste 

; Done si on y est, e'est 

un index 

; Sinon on atocke pour la 

verification 



; On uo.iipa.ee a.u numero 
d 'apres 

; Si on est a la fin du 

bloc 

{BUFADR2) , Y 

T0T_BL0C+1 ; Numero ne peut etre 
superieur au nbr ir.ax 

VI 

NXTbLK ; Sinon, pas un bLoc 

index qu'on teste 

(RIJFADR1 ) , Y 
TOT BLOC 
NXTBLK 

(BUFADR1 ) , Y ; Si on tombe sur un 
zero, ca signifie 
,■ pout-ctro unc fin de 
liste. 



; Done on regarde si ce 
qui suit eat nul 
JSR VRFZ ; Va verifier 

BEQ EOI ; Si oui, alors on a tini 

1 ' index 



259 
260 

261 V2 

262 
263 
264 

2b5 
266 

267 

268 EOI 
269 

270 

271 

272 G0OD_ONE 
273 

274 

275 

276 CONT 
277 



278 
279 
280 
281 



BNE NXTBLK 

CMP TEMP 

BNE NXTBYTE 

LDA (BUFADR2), 

CMP TEMP+1 

BNE NXTBYTE 

BEQ NXTBLK 

INC COMPTEUR 

BNE CHKNC3 

CPY *0 

BEQ NXTBLK 

J5R P BLOCK 

JMP NXTBLK 



; Sinon, ce n'etait pas 
un index 

; Ce n'etait pas un zero, 

done on verifie 

; le bas du numero. 

Y ; Si paieil en baa, il 
se peut. que le 
; haut soit different... 
; Si oui, alors prorhain 
octet 

; Si non, proclmin bloc 

; Tous les octets etaient 
rfiffpre-nt a eelui 
; te3te, done on prend le 
suivant . 



; Si ler octet du bloc 

est un ietu, alors 

; ca ne peut pas etre un 

index 



; Affiche le numero de 
bloc 

; Passe au prorrhain bloc 



Si 



le 



bloc peut etre index., 
af f icher 



282 * 

283 

284 PBLOCK 
285 

286 



287 
288 
289 
290 
291 

292 *- 

293 * 

294 *- 
295 



LDX BLOC_DEP 

LDA BLOC_DEP+l 

JSR LINPTR 

JSR NORMAL 

LDA # » , 

JMP COUT 



; Affichaqe en decimal du 

num^rn eie bloc, 

; suivi d'une virgule 

pour tous les separer 



Passage au 



prochain bloc 



296 NXTBLK 
297 

298 

299 

300 EOD 

301 

302 



INC BLOC_DEP 

BNE EOD 

INC BL0C_DEP+1 

LDA BLOC_DEP+l 

CMP T0TJ3L0C+1 

BEQ EOD1 



303 GO LIT BL JMP VC FARM 



Passe au prorhain bine 
tout on vorifiant 
; qu'on ne sort pas des 
limites fixees par 
; la commande. De tour.e 
facon, si on 
; demande a lire plus de 
blocs qu'il n'en 
; existe, une erreur se 
prorfiiira. II n'est 
/ done po33ible de donner 
qu'on nombre 
; inferieur au nombre 
maximum 



304 

305 EOD1 
306 



LDA BLOC DEP 
CMP TOT BLOC 



307 BCC GO_LIT_BL 

300 

309 ' 

310 * Sortie de commande 

311 i 

312 

313 CLC 

314 RTS 
315 

3X6 * — 

317 * Lecture du nombre pointe par TX'i'PTR 

318 * 

319 
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320 
321 

322 

323 

324 

325 

326 

327 
328 

329 
330 
331 
332 
333 
334 

335 
336 
337 
338 
339 

340 

341 
342 
343 
344 
345 
346 
347 
348 
349 
350 

351 

352 

353 
354 
355 
Shb 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 
375 
376 
377 
378 
379 
380 
381 
382 
383 
384 
385 

386 



RD NSK 



LDY #0 



LDA (TXTPTR) ,Y 



CMP t '0 



BCC ERR STX 



CMP 



BCC NO ERR 



ERR STX LDA t SYNT ERR 



; FRMNUM doit tomber sur 
un chiffre. 

; S'assure bien que e'en 

un, ir.aia sans 
; passer par CHRGET, qui 
modif, IXTPTR. 
; Si on a un chiffre, 
c'est bon, car FRMNUM 
; a'arretera a la fin du 
nombre . 

; Sinon, on signale une 
errour do ayncaxc. 

; Signaler soi-meme, car 
FRMNUM tend 



ERR EXIT 



10 ERR 



NO ERR 



CMP 
BEQ 
CMP 
BEO 
JSR 



JSR 
JMP 



#$27 

IO_ERR 

#$28 

IO_ERR 
BADCALL 

JMP 

INVERSE 
CONT 



JSR FRMNUM 



JSR GET ADR 



; ii dsconnecter ProDOS 
loraqu'il gene-re une 
PR1NTEKK ; Erreur. 



; Si on a bien un nombre, 
on le lit, le met 
; dans FAC puis le met 
ontior dans LINNUM 



LDA 
LDX 
RTS 



LINNUM 
LINNUM+1 



Met TXTPTR 



au debut de IN 



IN PTR 



LDY 



LDX 



STY 



STX 
RTS 



#<IN ; cette fois, on se place 

sur le buffer du 

#>IN ; Clavier. La ligne de 

commando est cnticro 

TXTPTR ; Et stockee en 

caracteres ASCII avec le 

TXTPTR+1 ; Dernier bit a 1 



CHRGET modifie 



CHR_GET JSR CHRGET 
CMP ICR 
RTS 



Divers 



RD_BL0C JSR ENTRY 

DrB 580 

VCMM DA PARM 
RTS 



PARM 



DFB 3 
DFR SCO 
HEX 0000 



BUFF 

BLOC_DEP HEX 0000 

COMMAND ASC ' INDEX 1 

TOT_BLOC HEX 0000 

COMPTEUR HEX 00 

TEMP HEX 0000 



387 LST ON 

388 LST OFF 
389 

390 ORG $2100 

391 

392 *■■*»*«»»*»««■»■»*»*-**»*;■«»*#«*#*«»*»«*»« 

393 * BLOC: Permet de lire ou ecrire un * 

394 * block de disquette. * 

395 • 

4*6 "*••-'«••*»»»***»:•»«•«•*«•»»«»»**■•«•»> 

397 
i9B 

399 * 

400 * Syntaxe: 

401 • 

402 * RBLOC <numero> [,S<slot>] [,D<drive>J 

403 * WBLOC <nuwero> |,S<slot>] [,D<drive>J 

404 • 

405 • 

406 

407 * 

408 ■ Labels 

409 * 

410 

411 SYNT.ERR - 540 ; Code de 'SYNTAX ERROR ■ 

412 PTR - $48 ; Pointeur temporaire 

413 LINNUM - SS0 ; FAC devenu entier dans 

deux octets 

414 NO 3UFF 556 ; Code de 'NO BUFFER 

AVATI.ART.F. ' 

415 STREND - S6D ; Pago ou commence la 

zone libre 

416 FRETOP - S6F ; Page ou se termine la 

zone libre 

All OLDTXTPTR - 579 ; Sauvegarde de TXTPTR 

41B READ_3L0CK - 080 ; Code de 1 * instruction 

M.L1 

; Code de 1 ' instruction 



FIN 
LONG 



419 
420 

421 

422 

423 

424 
425 
426 
42*7 
423 

429 

430 

431 

432 



433 

434 

435 

436 

437 
438 
439 

440 
441 
442 

443 
444 



WRITE_BLOCK 
CR 

BUFADR 
CKRGET 
TXTPTR 

IN 
MLI 

PRINTERS = 

XTADUK 

XLEN 

XCNUM 

PBTTS 

DEFSLT 
DEFDRV - 
VPATHl 

BADCALL - 

SYSERR 

FRMNUM 

GET ADR 

PR3L2 

PR3YTE 

CROUT 
PRNTXY3 - 



FIN-STAKT**0100 



445 COUT 



581 

MLI 

S8D ; Code de Retour a la 

ligne 

5AB ; Pointe sur le debut du 

buffer 

SBl ; Roucino do priso do 

caractere 
5B8 ; Pointeur utilise par 

FRMNUM 

50200 ; Buffei ulavlei 

SBF00 ; Point d* entree du MLI 

SBEOC ; Affiche 1 'erreur, met 

dans A son code 
SBfcSG ; Adresse de la routine 

externe 

SBE52 ; Longueur du nom d* la 

commande moina un 
5BE53 ; Numero de commande (500 

■ externe] 
SBE54 ; Bits autorisant 

1 'utilisation 

d 'operandes 
5BE3C ; Sloe par detaut 

SBE3D ; Drive par defaut 

SBE6C ; Adresse de la ligne de 

commande 

SBE8B ; Code d'erreur en numero 

d 'erreur BI 
SBF0F ; Nume.ro d'erreur oyoteme 

SDD67 ; Evalue la formule 

pointee par TXTPTR 
SE752 ; FAC -> LINNUM 

5F94A ; Affiche X espaces 

SFDDA ; Affiche l'accumulateur 

en hexa 

5FD8E ; Retour a la ligr\e 

SFD99 ; Affiche X et Y en he Ad, 

suivis de 
5FDED ; Affiche le caractere 



34 
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446 RTS 
AA1 

448 * 

449 * 

450 * 

ASl 

432 START 
453 



SFF58 



contenu dans A 
; Contiont un RTS 



Validite de 



la CMD 



LDA 

V_OLDCMD LDA 
LDA 



454 
455 
456 

457 
458 
459 
4 60 
461 

4 €2 
463 
464 
465 

466 



4 67 
46ft 
469 
470 

471 COMPAR 

472 

473 

474 

475 

476 

477 

478 

479 

4 81) NO_CM0 
481 

482 

483 

484 

485 
466 

4 87 N0_CMD1 
488 

489 
4 90 

491 * 

497 * 

4 93 * 

494 

4 95 BONNE CMD 
4 96 



cld ; Obllgatoire pour ProDOS 

LDA #>FIN*S01O0 ; Convention pour 
CMD LOAD 
#>LONG-50100 
RTS 

vpathi ; Pointe vers commande 
pour determiner si 
STA PTR ; c'osr la not re 

LDA VPATHI +1 
STA PTR*1 



LDY #0 



LDA 
STA 

LDX 

LDA 

STA 

INX 
INY 
LDA 
CMP 
BNE 

INX 

INY 



(PTR>,Y 
CMD_LEN 

10 

COMMAND, X 
NBR CMD 



(PTR) , Y 
COMMAND, X 
NO CMD 



BCC 



#5*1 
COMPAR 



BC3 SOJJNECMD 



DEC NBR CMD 



BEQ NO CMD1 



LDX #6 



LDY #1 



BNE COMPAR 



SEC 



; Cela indiqup longimur 
de la ligno tapoc 



; ftp la indique nombro d« 
commande possibles 
; que BLOC peuc 
comprendre Gt traiter. 
; Can fait: 7) 



; C'est RBLOC ou WBLOC ? 
j non, alors retour au 

ProDOS 

; Oui, prochain caractere 

de chacune des 

; comma nde: tapcc et 

possible. 

; Commande ne possede que 

5 caracteres 

; Cnnr.iniiP la boucle de> 

compare iaan 

; C'est la bonne 

commande. . . 



; Y— d-L— il une autre 
commande possible ? 
; Si Z=l alors non, on 
sort . 

; Sinon, oui., ciluia un 

vise V autre, 

; et on redemarre sur la 

commande tape© 

; Puis on lea compare 



; Indique. que 1^ rnrnm*n«Hf» 
n'oot pas a nous 



JMP (V OLDCMD+1) 



Determine si 



scrit ou ai on lit 



LDA 



4 97 



458 
499 



500 

501 MET CMD 



502 
503 



#RFAD_BLOCK ; On decide 

arbitroirement de lire 

ldx NBR_cmd ; Quelle commande a-t-on 
lu ? 

DEX ; La lere ou la 2nde ? 

BNE MET_CMD ; Z-0 signifie la lere, 

done RBLOC 
LDA #WRITE_3L0CK ; Sinon, c'est W3L0CK 
STA G0T0_MLI*3 ; On stucXe t^a dans la 

table des parametres 



SU4 * 

505 * 

506 
507 



508 

509 

510 

511 
512 
513 
514 
515 

516 V_SUITE 

517 

51B 

519 

520 

521 

522 

523 

$24 * 

525 * 

526 * 

527 

528 SUITE 
529 



Va analyser la commande 



DEY 

DRY 

STY 

LDA 

STA 
STA 
STA 
LDA 
STA 
LDA 
LDA 
STA 
LDA 
STA 
CLC 
RTS 



XLEN 
#0 

SYSERR 
XCNUM 
PBITS 
#0 

PBITStl 

SUITE 

V_SUITE+1 

XTADDR 

V_SUITE+2 

XTADDR+1 



; On paaae par 
1'analyseur de ProDOS, 
car 

; L'autre method* no 

fonctionne pos. 

; Comme on analyse les 

parametres, ce 

; n'etait pas um'Ip Ho le 

£airo. 



Leccure du 



numero de bloc 



530 

531 
532 
533 
534 

535 

536 

537 

538 

539 

540 

541 

542 

543 
544 
545 

546 

547 

548 

549 

550 

551 ERR_STX 

552 

553 
554 

555 NO_ERR 

556 

557 
558 



LDA TXTPTR 



LDX TXTPTRtl 



; Sauvegarde de TXTPTR 
pour que l'execution 
; d'un programme Basic 

puisse s& continuor. 



STA 
STX 



OLDTXTPTR 
OLDTXTPTR+1 



LDY XLEN 

INY 

INY 

TYA 

CLC 

ADC VPATHI 

STA TXTPTR 

LDA VPATH1+1 

ADC *0 

STA TXTPTR+1 



LDY 
LDA 
CMP 
BCC 
CMP 
BCC 
T.DA 
BEQ 
JMP 



#0 

(TXTPTR) , Y 
#'0 

ERK_5>TX 
#*t 

NO_ERR 
§ SYNT_ERR 
NO_ERR 
ERR EXIT 



JSR FRMNUM 
J9B GET ADR 

LDA LINNUK 



; Ou se trouve? la fin Hn 

mot do eommande ? 

; Cela sert a lire la 

suite: nu de bloc, 

; puis les parametres 

©Vontuels (5 et D ! 

; Pour cela, on se am L 

de TXTPTR: 

; On additionne la 

longiipnr du mot-cle 

; (RBLOC ou WBLOC) au 

debut de la ligne de 

; commande. On a alors 

debut operande. 

; C'est ce qu ' on mot on 

TXTPTR. 



; FRMNUM doit tomber sur 
un chiffre. 

; S' assure que s'en est 

un, mais sans 

; passor par CHP.GET, qui 

modif TXTPTR. 

; Si on a un chiffre, 

c'est bon. car FRMNUM 

; s'arretara a la fin du 

nombre . 

; Sinon, on signale une 

erreur de syntaxe. 

; II faut la signaler, 

car FRMNUM tend 

; a deconnecter Prouos 

lorsqu'il g£n£re une 

; Erreur. 

; Si on a bien un nombre, 
on le lit, le met 

; dans FAC puis le mat 
entier dans LINNUM 

: LINNUM est numero du 
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55 9 

560 

561 
562 

563 ■- 

564 * 

565 *- 
566 
567 

568 

569 



570 
571 
57? 

573 CHJ/RCL 

574 

575 
576 
5/7 

578 

579 

560 

581 

582 
583 
584 

585 TESTED 

586 
587 

588 

589 
590 
591 

592 EOL 
593 



594 
595 
5 96 *- 
597 * 
5*8 -- 
599 
600 



ST A BUFF +2 



LDX LINTJUN+1 



STX BUFF+3 



bloc sur lecjuel 

; On va maintonant 

travailler. 

; Done on le met dans 

table de parametres 



Lecture des 



parametres s'il y en a 



LDY 
LDX 
STY 
STX 
JSR 

jsn 

CMP 

BN£ 

JSR 

CMP 

BNE 

JSR 

AND 

STA 
JMP 



#>IN 

TXTPTR 

TXTPTR+1 

CROUT 
CHR_GET 

f M , " 

CH_VRGL 
CHR_GET 
l"S« 

XE51_0 

CHR_GF.T 

l%00000111 

DEFSLT 
CH VRGL 



; Cette foia, on ae place 
sur le buffer du 
; Clavier. Ligne de 
commande y est entiere 
; Et stockoe en 
-5:3,.e:e^ ASCII avec le 

; Dernier bit a 1 

J Revient a la ligne 

; Scanne touts ligne a la 

recherche d'une 

; Virgule, pour voir s'il 

y a un parametre. 



; Prend le caractere de 
commande 

; C'est le changomont de 

SIOL ? 

; Non, aiors peut-etre 
est-ce le drive ? 
; QiipI QSt le nouveau 
Slot ? 

; On le transfonne en 

chiffre hexa 

; A mettre chez ProDOS 



CMP t"D m ; C'est le changement de 

Drive ? 

BNF. F.RR_STX 

JSR CHR_CET ; Quel est le nouveau 

drive ? 

AND #400000011 ; Transforme en chiffre 
hexa 

STA DEFDRV 
JMP CH VRGL 



PLA ; Pour offacor lo RTS do 

CHR GET 



Modification du numero d'unice 



C01 

602 

603 

604 

605 

606 

601 

608 
609 
610 
611 

612 



LDA 

AND 

ASL 

ASL 

ORA 

ASL 

ASL 

ASL 

ASL 
STA 

LDA 

LDX 



DEFDRV ; On prend le numero de 

drivo 

#%00000010 ; Dont on ne garde que le 
2eme octet 

; Que 1 1 on decale 2 f ois 

; Pour obtenir ceci: 
QQQQDQQQ 

DEFSLT ; Puis on y met aussi les 

bits du slot 
; On a alors cccii 
00000353 

; Puis on decale le tout 
4 fois a droite 

; Pour avoir cod: 
D3SSO000 



613 
614 
615 

616 • 

617 * 

618 • 

619 

620 PARK AD 
621 



622 
623 
624 
625 
676 
627 
628 
629 
630 
631 



STA 
STX 



TXTPTR 
TXTPTR. 1 



puisse reprendre son 

; Exocution normalsment . 



Lance les 



npprAr i nn* 



LDA RMBLP 

LDA P ARM_AD - 1 

LDX PARM_AD-2 

STA PARM_P 

STX PARM P+l 



; Ceci est necessaire 

etant don.nd quo la 

; Routine eat roluijce. 



Cher che un 



buffer valabie 



632 

633 
634 
635 
636 
637 
638 

639 



LDX STREKD+1 
1NX 

STX BUFF+1 
INX 

CPX FKiiTOP + 1 

BCC RW_BLOC 

LDA #NO_BUFF 

JMP ERR EXIT 



/ On va ?e placer dans 

espace libre, encre 

; Variable? dimensionnees 

et chaines de 

,* Caraster^s. 



; S'il n'y a pas deux 

pages minimum de 

; Disponibles, alors 'NO 

BUFFER AVAILABLE 1 



CMKGLT ameliore 



640 

641 

642 " 

643 « - 

644 

645 CHR GET JSR CIIRGET 



646 

647 
64B 



," Prend le carctere 
suivant , 

CMP #CR ; Si Retour Chariot la 

ligne est finis 
BEQ EOL ; Oui, alors End Of Line 

JMP COUT ; Non, alors on affiche, 

puis on retourne 



Va 



lire 



649 

650 *— 

651 * 

552 

653 

654 RW__BL0C 

655 JSR GOTO MLI 



ou ecrire le diaque 



656 



BCC EXIT 



657 

658 ERK_EXIT 

659 JSR BADCALL 

660 JMP PRINTERR 
661 

662 

663 * Affichage de controle 

664 * 

665 

666 EXIT 
667 

668 
669 

670 
671 
672 
673 



; Demande a execute r la 
commande tapee 
; Si C-l, erreur, sinon 
C« va 



; On prepare le code 
d 'erreur 

; Puis on I'afficho... 



(176 octets) 



JSR CROUT 



LDX SUFF 

STX BUFADR 

LDY BUFF+1 

STY BUFADR* 1 



RWBLP + 1 ; C'est le numero d'unit* 674 AFF CTRL LDX BUFADR 



OLDTXTPTR ; Et on reeupere le 675 
TXTPTR du programme 676 
OLDTXTPTR+1 ; Pour crue celui-ci 677 



LDY BUFADR+1 
JSR PRNTXY3 
LDX #1 



; Saute a la liqne apres 
rappele le hi on 

; Tranaffcre l'adresse du 
buffer au pointeur 



; Affiche adresse du 

debut de la ligne qui 

; suit. 

; Puis £ait un espace 
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67 8 JSR 
679 

68C LDY 

681 AFF CODE LDA 



682 
683 



68'. 
685 
686 



LDA 

JSR 
INY 



fi«7 
688 
689 

690 
691 
692 



BNE 
LDX 
JSR 
LDY 

693 AFF CAR LDA 



691 
695 
696 
69/ 

698 NORM 

699 

700 

701 
702 
703 
704 
705 
706 

707 

708 
709 
710 



AND 

CMP 

BCS 

LDA 
ORA 

JSR 
IKY 

cpy 

BNE 

JSR 

LDA 

CLC 

ADC 
ST A 
CMP 



PR8L2 

10 ; On se place au debut rie 

la ligne 

(BUFADR) , Y ; Puis on lit les octets 

un par un 

COUT 
13 

AFFJTODE 
#1 

PRBL2 
HO 

(BUFADR) , Y* 
•fcOlllllll 
#S20 
NORM 
#' - 

1*10000000 

GOUT 



pour un control 



" ; Met un espace entre 

; Passe au prochaln octet 
; On en fait 8 par ligne 
pour ne pas etre 

; desoriente. 

; Met 1 esp entre codes 
et caracteres 



; RevienL en debuL de 

ligne pour aificher 
; tous les caracteres 
sor rpspnnriflnr r_ 
7 On flltre afin de pas 

avoir de caracteres 
; gene affichage 
parcequ * interpretes par 
; la carte 8 oolonncB 
(enLre autre) 



AFF_CAR 

CROUT 

BUFADR 



ff 8 

BUFADR 
#SBQ 



Prochain caraccere de 
la serle 
,* On en a mis 8 



; Passe a la ligne 

; Puis change le pointeur 

pour auoir un© 

; nouvelle aerie de 

octets 



/ 176 octets sufficient 



711 




BCC 


AFFjCTRL 




'U 










713 


















714 


* 


Sortie de 


la. commando 


715 
716 


















717 




CLC 




/ 11 11 y a po A cU U(3 

problem© 


718 




RTS 






719 
720 
721 










ift 


Divers 




777 


• — 
















723 










721 




BRK 






725 


GOTO ML I 








726 




JSR 


MM 


; Pui«* appal A ci»ll©-ci 
via lc ML I 


727 




DFB 


sao 


; Code de la commande 


728 


PARM_P 


L/rt 


I-, - — i 

KWHLf 


; Adresse de la table des 
parametres . 


730, 




RTS 






730 










731 


COMMAND 


DFB 


02 


; 11 y a deux eommandes 
possibles 


732 




ASC 


1 ruloc ; 


T.isr« H*»s rnmmandes 
disponibles 


i ^ i 




ASC 


•WBLOC* 


















DFB 


$03 


T1 

; 11 y a trois parametres 


736 




DFB 


S60 


; N'umdro d' unite ($ED 


737 


RUFF 


DA 


$mon 


; AH r esse du buffer 


738 




DA 


soooo 


; Numcro du bloc 


73? 










740 


CMD_LEN 


HEX 


00 


; Longueur de la ligne de 
comma nde 


741 


NBR_CMD 


HEX 


00 


; Compteur pour savoir 



quelle CQiumaiiutj 



742 

743 FIN 

744 LONG 
745 

746 



FTN-START+S0100 
LST ON 



\ 



Editeur Plein Ecran 



EPE 5.1 



Apple He, /fe+, l/c,(jIGSj i e p a cha 

DOS 3.3 & ProDOS 

Listez vos programmes Basic en avant et en arriere. 
Modifiez, inserez, effacez des caracteres en plein ecran 

sans relire les lignes. 
Recherchez toute chaine de caracteres. 
Choisissez vous-meme les codes de controle d'EPE. 
Modifiez E.P.E. : le fichier source est sur la disquette. 

200,00 F TTC franco Qbon de commande page 74). 
.. ^change contre version 2.2 ou 5.0 : 80.00 F 
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37 



On trouve plus Mement 



avec 10 ans 



Certaines evolutions sont aussi 
im portantes que des revolutions. 

Le plus difficile quand on debute, 
c'est de debuter. Car toutes les 
propositions d'emploi demandent une 
certaine experience. Chercher un 
eniploi est done un prubleine 
insoluble. Pas pour l'Apple IIgs, il 
debute avec 1(1 ans d' experience. 

Comment? C'est tres simple, 
il a une architecture double : un 
nouvel ordinateur puissant traitant 
le graphique et le son, entoure 
un Apple II classique et miniaturise. 
Il profile ainsi de 10 ans de 
developpement de logiciels et 
d'experience. Un grand progrts realise 
en partie grace au microprocesseur 
65C816, un 16 bits descendant du 
65C02 de l'Apple IL L'Apple IIgs fonc- 
tionnc k deux vitcsscs ; 2,8 MHz cn 
mode natif ; en mode Emulation 
(e'est-a-dire lorsque vous utilisez un 



programme de votre ancien Apple II) 
vous avez le choix entre 1 MHz et 
2,8 MHz. 

Debuler connu, c'est 16.000 propositions 
d'emploi. 

Avec FlWM (Integrated Woz 
Machine*) l'Apple IIgs peut recevoir 
indifferemment des lecteurs de 
disquettes 3,5 pouces 800 Ko ou des 
lecteurs 5,25 pouces 140 Ko, ou les 
faire cohabiter, ce qui contribue a vous 
faire profiter de la plus grande 
biblioth&que de logiciels du monde. Le 
noiiibre de 16.000 logiciels Slant estiinalif 
car la seule chose qu'un Apple IIgs soit 
incapable de calculer, c'est le nombre 
d'emplois qu'il est capable de tenir. 

Avec le nouveau syst&me 
Sexploitation ProDOS, l'Apple IIgs 
pcrmet la htfrarchisation des fichiers 
et des catalogues A la rrianiere de 



• En bemmagt a Steve Toxnjat, 
Applt cr in ah u r dt (Apple U, 



o ftitittum dt la Statu 





•m Apple 



IIgs 



/- i" p f it f ,'• ,' r 

r— ( >- n* >if j/' 

v \w y itt- »t* \gr >>■ 



un emploi quand on debute 



c 





Macintosh, et la connexion de 
nouvcaux pcriphSriques. 

Gets , cela veu l dire Gra phi que et son. 

L'imagination debridee des 
dSveloppeurs su£fira-l-elle pour utiiiser 
les 409o nuances de couleurs 
disponibles ? C'est probable. Ce qui est 
certain, c'est qu'une resolution de 640 
points sur 200 lignes pour 4 couleurs, 
320 points sur 200 lignes pour 16 
couleurs va donner beaucoup dc relief 
a certaines demonstrations. Si vous 
n'en croyez pas vos yeux, vous n'en 
croirez pas vos oreilles non plus. Le 
coprocesseur "son" choisi par 
Apple a deja une brillante carri&re 
derrierp |uJ puisqu'il est employs par 
les plus grands synlhefoeurs du 
march6. C'est I'ENSONIQ, capable de 
genfrer 16 voix, 



et il ne tui manque m?me pas la parole. 

Les relations neeessaircs pour rgussir. 

Eu 10 ann&s, l'Apple II a eu tout 
le loisir de se faire d'cxccllcntes relations 
de travail, imprimante, modem , disque 
dur, que I'Apple lies continuera a 
entretenir et dSvelopper ; celui-ci peut 
desormais etre connecte au rfiseau 
AppleTalk ct gcrer la LaserWriter 
r&ervee jusqu'a present a Macintosh. II 
peut aussi recevoir le disque dur SCSI. 

L'Apple IIgs poss&de 7 connecteurs 
d'extension permettant, a I'aicle d'une 
multitude dc cartes d'interfaces, de le 
relier a tnus les types d'unitfc pftiphftiques. 

Acheter un Apple, c'est entrer dans 
le Club Apple pour echanger des informa- 
tions, acceder au support technique par 
telephone 7 jours sur 7, ou aux services 
tflfimatiqnes du Club. 



Apple presente l'Apple IIgs. 



a 



5 

3" 



PageMaker : cp 
essai 'routier' 

Philippe Mathieu 



PageMaker, r6alis6 par Aldus et 
distribue par Ise Cegos, est le 
logiciel qui fir le succfcs de l'6di- 
tion electron ique sur Macintosh. 
II se presente sous la forme de 
deux disquettes (Demurrage et 
Programme) accompagnees d'une 
documentation et d'une disquette 
de demonstration 'visite guidee'. 

II peut etre utilise sur un 
Macintosh 512Ko mais le travail 
sera plus aise avec un Mac Plus. 
On peut l'installer sans difficulty 
sur un disque dur, l'original 
devant etre in trod nit momenta - 
nemeni a la inise en route. 

Demarrer avec 
PageMaker 

Au dcmarragc, 1c menu Fichier 
permet soit d'ouvrir une publi- 
cation (noin donne au documents 
cr££s par PageMaker) existante, 
que Ton retrouve dans l'6tat ou 
on l'avait laiss6e, soit d'ouvrir 
une nouvelle publication. Dans ce 
cas, unc fenctre de dialogue (For- 
mat d'impression) apparalt. tile 
penuei de deienmner le format de 
papier utilise, l'orientation (pay- 
sage, portrait), l'option recto/ 
verso, le nombre de pages ainsi 
que les marges. 

Les format et orientation sont 
fixtfs definitivement. Les marges 
peuvent etre modifiees ulterieure- 
menc mais cela oblige generale- 
ment a revoir toute la mise en 
page. En revanche, il est facile de 
supprimer ou d'ajoutcr des 
pages, sachant qu'une publication 
ne peut pas depasser seize pages. 
Sur un 512Ko il sera meme 
prdf6rable, en raison de la capa- 
cite des disquettes, de ne pas aller 
au-deia de huit pages. Pour un 
document plus long, il suffira 



d'enchainer plusieurs publica- 
tions, la pagination pouvant aller 
jusqu'a 999. 

L'editeur de texte 
interne 

PageMaker offre des possibility 
d'edition de texte mais, visible- 
ment, cet editeur interne n'a pas 
ete con$u pour etre l'atout majeur 
du logiciel ! II permet la creation 
de textes autonomes ; cependant 
attention, il lui arrive de temps en 

temps (surtout avec la version 

1.0) de ne pas respecter les 
marges et colonnes. On peut 
egalement l'utiliser pour modifier 
(insertion, suppression, etc.) des 
documents provenant dc logicicls 
ext^rieurs mais, li encore, pru- 
dence : les rdsultats sont parfois 
aldatoircs en ce qui conceme la 
mi se en page. 

II est preferable de r^server 
l'usagc de l'editeur a l'ajout de 
titres ou de legendes, et de passer 
par un traitement de texte clas- 
sique pour cr^er des textes longs. 
D'ailleurs, PageMaker ne pretend 
pas au titre dc traitement dc texte. 

Un menu deroulant (Typo) per- 
met de choisir le style des carac- 
teres (standard, gras, italique...), 
d'inverser leur 'couleur' et de 
determiner Talignement ec la 
justification. Des raceourcis exis- 
tent qui accelerent cenains de ces 
choix. On peut, a travers unc 
fenetre de dialogue ouverte par la 
corninande Caracttres, choisir la 
police de caract£res, la taille, la 
position (indice, exposant) et 
1'interlignage. 

II est egalement possible par ce 
menu de determiner la tabulation 
(commande Tabulation). Une 
regie apparait alors & l'6cran. 



comportant un repere d'inden- 
ration ainsi que des taquets de 
tabulation gauche, droite, centree 
ou decimale (cherchez bien ces 
taquets, ils sont caches sous le 
repere d'indentation !). 

On peut regretter 1'absence de 
certaines fonctions classiques de 
traitement de texte : recherche/ 
remplacement, glossaire. En 
revanche, PageMaker propose un 
trait d'union 'aleatoire* permettant 
une cdsurc automatique des mots 
en cas de besoin (colonnes trop 
euoites). 

Les outils 
semi-graphiques 

Une trousse & outils, toujour* 
presente a l'ecran, permet d'ef- 
fectuer toutes sortes de traces 
(lignes, rectangles, carres, cer- 

clcs, ovalcs), la selection du type 
de trait et de fond se faisant par 
deux menus dcroulants, Les 
commandes Premier plan er 
Second plan du menu Edition 
(analogues a celles de MacDraw) 
se montrent tres pratiques pour la 
realisation d'encadrcmcnts varies. 

Les graphiques et dessins placds 
sur une page peuvent etre mo- 
difies. II faut pour cela les selec- 
tionner a l'aide de la souris. Des 
poignees apparaissem alors, qui 
permettent de les agrandir ou de 
les reduire avec le pointeur en 
forme de fl£che. Attention, cc 
genre de modifications, en d€- 
formant les caracteres, rend par- 
fois les legendes illisibles. 

On trouve aussi dans la trousse 
des ciseaux permettant de couper 
des graphiques ou dessins. Ces 
"decoupages" se font sans perte 
d'information car il est possible, 
toujours avec les ciseaux, de 
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revenir a l'etat initial de I'image. 

Placer un 
document 

L'editeur de texte et lcs outils 
sont des accessoires. PageMaker 
est essentiellement congu pour 
mettre en page des documents 
crees avec d'autres logiciels et 
c'est bien sur ce point qu'il se 
montre le plus performant. 

La mise en place de ces do- 
cuments sc fait soit par la 
commande Placer du menu Ft- 
chier, soit en passant par le 
Presse-papiers. L'utilisation de la 
commande Placer ouvre une 
fenetre de dialogue permettant de 
choisir le document desire, ce 
document devant se rxouver sur 
une des disquettes en place ou sur 
lc disque dur. Le choix d'un 
document fait apparaitre un 
poinieur doni la forme varie selon 
le type du document. II ne reste 
plus qu'fc le placer k l'endroit 
voulu. 

Lcs documents provenant d'un 
logiciel de traitement de texte 
(MacWrite, Word. . .) peuveni cue 
places directement en conservant 
la rnise en page originale. II est 
egalement possible de modifier 
cette mise en page par la crdation 
dc colonnes et en utilisant la regie 
de tabulation. Nous reparlerons 
de l'utilisation de ces colonnes 
qui constituent un des attraits de 
PageMaker. 

Pour un tableau, les choses se 
passent un peu moins simple- 
ment, le document voyant le plus 
souvent sa tabulation perturbee. 
Si votre tableur possede une 
fonciion 'Copie de rimage' 
(comme Excel), aucun probleme, 
le tableau est conserve dans le 
Presse-papiers avec ses tabula- 
tions. Si ce n'est pas le cas 
(comme, par exemple, avec 
Mulriplan) le tableau se trouvera 
egalement dans le Presse-papiers, 
mais les tabulations seront 
perdues. Enfin, si votre tableur 
permet l'enregistrement sous 
forme "texte*, vous pourrez 
utiliser la commande Placer mais, 
la encore, vous devrez revoir la 
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tabulation. 

Lcs dessins (type MacPaint ou 
MacDraw) sont egalement acces- 
sibles par la commande Placer ou 
a partlr du Prcssc-papicrs (pour 
MacDraw le document doit etre 
enregistre en format 'Picture'). 
Ces dessins sont aisement 
rnodifiables : agrandissement, re- 
duction, decoupage grace aux 
outils de la trousse. 

La mise en page 

Au demarrage, apres avoir choisi 
lc format d'impression, la pre- 
miere page s'affiche en taille 
ecran. Ce format donne une vue 
d'ensemble de la page mais les 
textes sont illisibles. D'autres 
formats existent : taille reelle, 
reduction a 50% ou 70% et 
agrandissement k 200%. On trou- 
ve au bas de 1'ecran les icones de 
chaque page ainsi que les icfines 
de la maquette. 

La realisation dune page k l'aide 
de PageMaker se deroule en trois 
etapes : composition de la page en 
disposant divers reperes, place- 
ment des documents extdrieurs, 
finition a l'aide des outils de la 
trousse et de lMieur de texte. 

La composition de la page se fait 
en g£n6ral en taille ecran (la page 
est alors entierement visible). On 
peut demander l'affichage de 
regies horizontales et verticales 
qui permettem de placer des 
reperes (en tirant avec la souris a 
partir des regies). Ces reperes 
sont sans effet sur la disposition 
des Elements de la page, mais se 
montrent tres commodes pour le 
travail, la commande Magniiisme 
des rep&res collant automa- 
tiquement contre le repere tout 
document place a proximit6. Le 
point d'intersection des r&glcs, 
point zero des graduations, pent 
etre place en n'imporie quel en- 
droit de la page, ce qui aidera au 
centrage de certains documents. 

II est Egalement possible de placer 
des reperes "actifs" : les colon- 
nes, dont on choisira le nombre et 
l'espacement par la commande 
Disposition des colonnes. De 
plus, leur position et leur largeur 
pourront etre modifies par la 



souris. En utilisant cette option, 
tout texte plac6 sur la page perdra 
sa tabulation et sa justification 
originale pour sc dcrouler a l'in- 
terieur de la colonne., avec la mise 
en page que vous aurez clioisie. 
Un texte trop long pour une 
colonne pourra Sire poursuivi 
dans la suivante, sans difficulte, a 
l'aide du pointeur. 

Un texte qui vient d'etre place sur 
une page est entourg de poignees 
de selection qui permettent, en 
tirant avec la souris, de le decou- 
per en pavds que Ton pourra 
ri6placer ind£pendamment les cms 
des autres sans que le texte pcrde 
sa continuite (si Ton insere du 
texte dans un pav6, l'excedent est 
transfere dans le pav6 suivant), 
De la meme maniere, il est 
possible de regrouper plusicurs 
paves en un. Pour faire apparaitre 
ces poigndes il sufflt dc sclection- 
ner le pave avec la souris. 

Le placement de dessins ou 
graph iques n'est pas affecte par 
les colonnes, mais l'utilisation du 
Magndtisme des repires permet 
des alignements parfaits. II est 
possible d'integrer ces images au 
texte soit en deplafant des paves, 
soit en modifiant la disposition 
des colonnes. 

Ces operations de placement des 
documents s'effectuent de prefe- 
rence en taille reelle, la taille Scran 

nc dormant pas une vision exacte 
du resultat. Evidemment, en taille 
reelle, la page n'apparait pas tota- 
lement (a moins de disposer d'un 

ecran pleine page) mais on peut 

se ddplacer k l'aide des ascen- 
seurs habituels du Macintosh. 

En taille ecran, on voit que la 
page n'occupe pas toute la place 
disponible. Cet espace libre est la 
table de montage (tJgalement unu- 
sable en taille reelle). On effec- 
tuera sur cette table le bricolage : 
modification des documents, 
constniction de certains motifs 
graphiques... En effet, le travail 
sur un 61£ment d'une page se fait 
avec la souris, le risque 6tant 
alors de ddplacer un 616ment cor- 
rectement place lorsqu'on veut en 
modifier un autre. Le travail sur 
la table de montage permettra 
d'eviter ces erreurs de manipu- 
lation, en particulier dans le cas 



de pages complexes comportant 
un grand nombre ri'etements. 



La maquette 

Si certains dl6ments doivent se 
trouver sur toutes les pages dune 
publication ; reperes, encadre- 
ments, logos, pagination... il 
suffif de creer une maquette, 
accessible par l'icone recto (ou 
deux icones recto et verso, selon 
le choix du format d'impression). 
Toutes les fonctions de 
PageMaker sont disponibles sur 
ccs maquettes. 

Les Elements places sur la ma- 
quette se retrouveront sur toutes 
les pages de la publication, mais 
il est possible de les faire dispa- 
raitre de cenaines pages par la 
comniande Supprimer les motifs 
de la maquette. 

Dans le cas d'une publication 
rccto/vcrso, on definit deux ma- 
quettes qui peuvent etre differen- 
ces. II est possible, pour les com- 
parer, de demander I'affichage de 
la double page. Cependant, on ne 
pourra pas travailler dessus, tous 
les outils et commandes 6tant 
alors inactives. Cette commande 

Afficher la double page est 

utilisable pour comparer deux 
pages se faisant face dans la 
publication, 

Le repfere de foliotage peut se 
placer en tout point de la maquette 

et il est possible , dans le cas 

d'une publication recto/verso, de 
ne le placer que sur une des deux 
maquclies. La num^rotation ne 
peut se faire qu'en chiffres 
arabes. 

La manipulation 
des pages 

On a vu qu'il est facile de sup- 
primer une page ou d'en ins6rer 
une nouvelle (toujours dans la 
limite de seize). Toutefois, dans 
le cas d'une publication recto/ 
verso, attention k la parite ! F.n ef- 
fet si les maqueiies des pages pai- 
res et impaires sont differentes, la 
mise en page peut etre perturtee. 

11 est possible d'intervertir des 



pages ou de recopier une page sur 
une autre. II suffit de selectionner 
toutc la page (en taille ecran) puis 
de la coller sur une autre page. 

L'impression 

PageMaker admet de nombreuses 
imprimantes (Image Writer, Laser 
Writer ou toute imprimante ou 
photocomposeuse acceptant le 
langage PostScript) mais l'im- 
pression n'est pas tres rapide. 
Cest bien sur avec une impri- 
mante i laser que Ton obtiendra 
les meilleurs resultats. 

Avec la LaserWriter, differentes 
options sont disponibles : le lis- 
sage, qui amelinre la qualitd d'im- 
pression des textes et graphiques 
(soyez patient, 1'impression est 
plus lente), des reductions ou 
agrandissements allant de 15% £ 
1000%, le montage en taille re- 
duite de toutes les pages sur une 
meme feuille, permeuant une vue 
d'ensemble de la publication. Le 
r^sultat obtenu sur le papier est 
identique a ce que vous voyez h 
l'ecran en taille reelle (What You 
See Is What You Get, le 
WYSIWIC a la mode !) mais, 
bien entendu, les diffdrems repfe- 
res et regies n'apparaissent pas. 
On observe cependant quelques 
differences entre l'ecran ct l'im- 
pression laser, particulierement 
pour les styles autres que stan- 
dard ainsi que pour les melanges 
de textes avec des dessins de type 
MacPaint. 

Apprendre a 
utiliser PageMaker 

PageMaker est accompagn6 d'une 
disquettc Wisite guid6e' qui per 
met un premier contact avec le 
logiciel. La documentation com- 
mence £galement par une visite 
guidee suivie de l'expose des dif- 
ferentes fonctions. Elle est claire 
et bien traduite, nous n'y avons 
pas decele d'erreur. Elle est com- 
pile par un glossaire et un 
index. 

Le logiciel dispose en outre d'une 
fonction assistance facilement uti- 
lisable et suffisamment explicite. 



Avantages et 
faiblesses 

Au rang des faiblesses, nous pla- 
ccrons en premier lieu 1'editeur de 
texte aux fonctions limitees. A un 
moment ou les logicicls de traite- 
ment de texte offrent de plus en 
plus de possibilites de mise en 
page, un logiciel d'edition elec- 
tronique devrait permettre un uai- 
tement ais6 des textes. 

On regrettera egalement de ne pas 
pouvoir concevoir plusieurs ma- 
quettes pour une meme publica- 
tion ainsi que l'impossibilite de 
travailler sur plusieurs pages si- 
multanement. La limitation k seize 
pages d'une publication est elle 
aussi asse/ genajite. 

Parmi les points forts de 
PageMaker, on comptera tout 
d'abord sa grande simplicitd 
d'utilisation lors du placement de 
documents extemes. D'une ma- 
nure g6n£rale, les differentes op- 
tions s'uulisent commoddment : 
creation des maquettes, reduction 
ou agrandissement des pages, 
disposition des colonnes et repe- 
res dont le magnctismc est parti- 
culierement efficace. 

Autre avantage : le d6coupage des 
lexies en paves qui offre, avec un 
peu d'habitude, de nombreuses 
possibilitds. 

Un bon point aussi pour la 
trousse, toujours accessible, et 
dont les outils semi-graptiiques 
sont intdrcssants. 



Conclusion 

PageMaker est tout a fait satisfai- 
sant des lors qu'il s'agit de re- 
grouper des documents de prove- 
nances varices en leur ajoutant 
des encadrements, traits, etc. 
1'editeur de texte n'etant utilise 
que pour dcrire titres et tegendes 
ou modifier legerement les textes. 

Finalement, e'est quand meme 
vous qui ferez qu'une page sera 
belle et agreable a lire ! 
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Les nouveau-nes : 
Mac SE & Mac II 

A Tissue de la recente annonce des nouveaux venus 
de la gamme Apple, nous vous proposons ici une 
presentation qui nc se laissera pas entrainer par notre 
enthousiasme face a un Mac en couleur. Regrettons 
seulement qu'il faille n^cessairement, dans une telle 
approche, aborder la question du prix qui rcfroidit 
quelque peu. 

Presentation 

Mac SE : c'est quasimcnt un Macintosh Plus avec 
une legere evolution du clavier. Le colons est platine, 
celle de 1' Apple Has, mais aussi celle des Mac Plus 
d&s ce mois-ci. 

Mac II : l'unite centrale est plus volumineuse - on 
pense a un TRM — moniteur type IlGS, clavier 
detachable avec touches de fonciions et touches 
speciales (pour MS/DOS ou UNIX). II arbore un 
aspect 'professional' (plus que le Mac ?) que 
certains appr^cient. 

Ouvert f Ferme ? 

Si le Mac n'est pas si ferme qu'on a bien voulu le 
dire (ou ie medire), les nouveaux Mac sont 



r^solument ouvens. II ne s'agit pas d'une ouverture 
4 a r Apple ][' (qui conduit, selon Tusage, a ne jamais 
rcposcr lc capot !) mais d'une facilite devolution de 
la machine. 

Mac SE : un seul connecteur - mais 96 broches - 
sur la cane mfcre pour installer des cartes 
d'extensions : adaptation au MS/DOS, carte video, 
acc616rateur, modem integre.. . 6 p6riphdriques SCSI 
peuvent etre connects en plus de l'eventuel disque 
dur interne. 

Mac II : 6 connecteurs d'extension dont Tun 
occupy par la cane video. 6 pdripheriques peuvent 
egalement etre chaines sur le pon SCST en plus du 
disque dur. La transmission des donnees sur les 
connecteurs utilise le protocole NuBus qui supprime 
le probleme de la configuration manuelle. 
Une version du syst&me d'exploitation UNIX, 
appele A/UX, sera proposee ii la fin de i'ann£e. On 
parle de facility de communication (Ethernet, 
Appletalk) sous A/UX. 

Mac SE et Mac II : avec un lecteur 5,25 pouces, 
il sera possible de lire des fichiers MS/DOS sans 
cane speciale grace a un soft Apple ; InterFile. 

L'ouverture, c'est aussi deux pons s6rie, un port 
lectcur dc disquettes exteme, une interface d'entree 
(clavier, souris...) pouvant g£rer 16 peripheriques et 
un port son ster6o 4 voix. 
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Stockage 

Mac SE : ce modelc sera propose en deux versions, 
deux lecteurs de disquettes 800 Ko, ou un seul mais 
avec un disque dur de 20 Mo SCSI. 

Mac II : il sera equipe d'un ou deux ledeurs de 
disquettes 800 Ko ct d'un disque dur de 20, 40 ou 
80 Mo. 

La video 

Mac SE : monochrome. 

Mac II : 640 x 480 points. La carte pilotc un 
moniteur video Ires haute resolution de 12 pouces 
monochrome ou 13 pouces en couleur. En standard, 
16 couleurs ou nuances de gris parmi 16 millions et, 
avec extension mernoire, 256 couleurs ou nuances de 
gris ; cela ne laisse pas indifferent. Pour une 
presentation sophistiquee a l'ecran, les 
programmeurs souffriront certainement... Les 
programmes toumant actuellemcnt sur le Mac ne sont 
pas tous une demonstration de bon gout et de 
fignolage alors, avec l'arriv£e de la couleur et 
307 200 points... 

Le processeur 

Mac SE : comme le Mac : MC68000 Motorola 
(32/16 bits) a 8 Mhz. 

Mac II : MC68020 (32/32 bits) k 16 Mhz, 
coprocesseur arithmeuque 68881 pour des calculs 
fulgurants (200 fois plus rapide qu'avec le 68020 
seul). 



La vitesse 

Mac SE : bien qu'utilisant le rneme processeur 
68000, 15 a 20 % sont gagnes grace a des acces 
mernoire plus rapides. Les acces au disque dur SCSI 
sont deux fois plus rapide. 

Mac II : un 68020 a 16 Mhz ne dScoit pas ; 
transferi via SCSI a 1 Mo/s 

La mernoire vive 

Mac SE : il est livre avec 1 Mo de Ram. extensible 
a 4 Mo. 

Mac II : 1 Mo extensible a 8 Mo sur carte mere 
mats 15000 Mo sur cartes d'extension. Prix des 15 
gigas? 

La mernoire 'morte* 

Mac SE : 256 Ko (Contre 128Ko sur le Mac Plus) 
Mac II : 256 Ko 

Disponibilite 

Mac SE : mars 87. Mac II : juin 87. 
Extension 2 Mo (SE ou II) : mai. 

Prix 

Mac SE : avec 1 Mo de Ram et disque dur integre : 
35 000 Frs TTC. 

Mac II : avec 1 Mo de Ram el disque dur integre 20 
Mo, deux lecteurs 800 Ko, moniteur monochrome, 
cane video : 65 000 Frs TTC. 
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Crypt age de fichiers 
confidentiels : KrtiptOS 

Jean-Luc Bazanegue 




Le but de I'accessoire de bureau 
"Kruptos" est le crypiage - et, bien sur, 
le decryptage - de fichiers 
confidentiels, ceci afin de les rendre 
incomprehensibles et, de maniere 
geneVale, inexploitables par des liers. 

Effets de Kruptos 

Un fichier code" a 1'aide de Kruptos 
pr&etile les caracteristiques suivantes : 

• il n'a plus d'icone personnalise et 
done, vu du Finder, il est banalise et 
l'dventuel 'espion' ne pourra pas 
faire la difference entre, par exemple, 
un fichier MacWrite et un fichier 
MacPaint ; 

• il n'est plus 'double cliquable', et 
toute tentative d'ouverture par cette 
methode se soldera par un message 
«I1 n'y a pas d'application pour 
ouvrir ce document.» ; 

• un essai de chargement depuis l'ap- 
plicaiion correspondante — gen^rale- 
ment avec l'article *Ouvrir' du menu 
'Fichier 1 - reste possible, mais abou 
tira selon les applications, prevoyan- 
tes ou pas, au mieux a un message 
pouvant ressemblcr a «Ccci n'est pas 
un fichier cr66 par Blurp», et au pire 
a la bom be. II va sans: dire que pour 
cssaycr d'ouvrir le Fichier depuis 
1'applicaEion, il faut d'abord deviner 
quelle est cette demiere ; 

• lc contcnu du fichier, apres codage, 
etant tres 'abime\ les editeurs de 
secteurs et autres outils de 'deplom- 
bage* ne seroni d'aucun secours au 
curieux. 

Utiliser Kruptos 

L'aceessoirc est tres simple a utiliser. n 
faut d'abord choisir le fichier a crypter 
en utilisant le bouton 'Fichier* , qui 
provoque l'affichage de la fenetre de 
selection qui vous propose tous les 
fichiers sauf : 

• les applications (type APPL/xxxx) ; 

• les fichiers 'systeme' (type xxxx/ 
MACS - system, Finder, Clipboard 
File...); 

• les fichiers ouverts ou en cours 
d'utilisaiion. 



Uiie fois le fichier s61ectionn6, 
I'accessoire affiche le nom du fichier, 
ainsi que son type. L'affichage du type 
- lui aussi code - permet d'avoir une 
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indication, quand on n'en est plus bien 
sur, sur le codage ou le non codage du 
fichier ; dans le cas d'un fichier non 
code\ le type est geneialement coherent, 
par exemple 'MACA' pour un Fichier 
MacWrite, alors que le traitement rend 
invariablerrient le type fantaisiste 
(t±p3, *I a...). Afin que le type ne 
facilite pas la tache du pirate, son 
codage est different de eelui du fichier 
proprement dit. 

E faut ensuite (ou avant la selection du 
fichier, l'ordre n'a pas d'importance) 
choisir la clef a utiliser pour lc codage. 
La clef est constituee de quatre 



caractcrcs quelconques qui peuvenl eire 
frappes directement au clavier, ou 
encore 'colleY* Dans ce dernier cas, et 
si Ton utilise un accessoire de bureau 
comme le 'ad litteram' du nnmeYo 25, 
on dispose de 243 caracteres diff6rcnts, 
ce qui nous donne 3 486 784 401 
combinaisons possibles. 



D ne reste plus qu'a actionner le bouton 
'Codage/decodage 1 pour que repara- 
tion soit effectuee, au rylhme d'environ 
80Ko par minute (le temps d'execution 
peut varier sensiblenient en funcu'on de 
la memoire de masse utilisee). 
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Le codage peut etre effectu6 plusieurs 
fois de suite avec des clefs differentes 
ou identiqucs, cc qui peut augmcntcr lc 
nombre de possibility jusqu'a 4 294 
967 296. L'ordre utilise pour le 
d£coilage d'uii tel fiehier peut ne pas se 
faire dans l'ordre. Par exemple, si Ton 
a utilise les clefs 1234, ABCD et 
POMS, le fiehier pourra eire decode en 
donnant d'abord ABCD, puis POMS, 
puis enfin 1234. 



Anecdotique : cette version de 
Kruptos est compatible avec la version 
pour Apple ][ publiee dans ce num6ro ; 
tl est done possible de coder un fiehier 
sur un Mac et le ddcoder sur un Apple 
][, ou l'inverse. 



m 



accessoires 



j. - 128 

Mac 512 

Plus 



Petit jeu : si vous etes le premier a 
telephoner pour nous communiquer la 
clef qui a scrvi a crypter le fiehier 

'secret' Ust6 page precedente, vous 
gagnerez le cadeau indique dans le 
fiehier. Pour vous faciliter la tache : il 
s'agit d'un fiehier cree avec MacWrite 
et sauvegarde en format 'tcxte seul*. 



Fichiers et sources de 
I 'accessoire 'Krup to s ' 

Note : le caractere "I" indique la continuite de la 
lignc courante. 



Fiehier 'Kruptosjob' 



Asm 
Link 



Kruptos. Asm 

Kruptos.Llnk 



Exec 

Font/ DA Mover 



Edit 
Edit 



Fiehier 'Kruptos. Link' 

i 

/Resources 
Kruptos 

/output Accessoire "Kruptos" 
/Type 'DHL' 'DMOV 
$ 

Source 'Kruptos. Asm' 



INCLUDE 
INCLUDE 
END 



Kmptos/1 . Asm 

Kruplos/2.Asm 



Source 'Kruptos/l.Asm' 

RESOURCE 'DRVR* 29 'Kruptos' 



INCLUDE 


FSEqu.Txt 


INCLUDE 


MacTraps.D 


INCLUDE 


SysEqu.D 




INCLUDE 


ToolEqu.D 


INCLUDE 


QuickEqu.D 


INCLUDE 


PackMacs.txt 


HandleOlF 


EQU 


WindowSize 


HandlcCtlC 


EQU 


HandleCtlF+4 


HandlText 


EQU 


HandleCtlC+4 


HandleControle 


EQU 


HandlText+4 


CreateurFichier 


EQU 


HandleControle+4 


TypeFichier 


EQU 


CreateurFichier+6 


FichiorCourant 


EQU 


TypeFichier+6 


RGponsoCotFile 


EQU 


Fich ierCou ra n t + 64 


TamponIO 


EQU 


ReponseGetFiIe+72 


Dra ppauMdf 


FQU 


TamponI O+ioFQElSize 


DrapeauColle 


EQU 


Draped uMdf+1 


DrapeauCurs 


EQU 


DrapeauColle+1 



Dra pea uEOF 


EQU 


D ra pea uCurs -i- 1 


Clef 


EQU 


DrapeauEOF+1 


LongueurD 


EQU 


Clef+4 


LongucurR 


EQU 


LongueurD-nl 


Tampon522 


EQU 


LongueurR+4 


ComptourTiming 


EQU 


Tampon522+522 


TaillL'Tdiiipon 


EQU 


CompteurTiming+4 


Oui EQU 


SI00 




MaxC EQU 


4 




BS EQU 


8 




CR EQU 


13 




Base 







DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 



$400 
U 

S16A 


On verrure-Ba se 
Status-Base 
Con trole- Base 
Status-Base 
Fermeturc-Base 



Titre 



DC.B 7/Kruptos' 



; Ouverturc de Vacccssoirc 



Ouverture 

MQVEM.L 
MOVEA.L 
TST.L 
BNE 
SUBQ.L 
MOVE.L 
_GetPoH 
MOVE.L 
_NewPtr,ciear 
TST DO 
BEQ.S MemoireOK 
MOVF #7,-(qP) 
_SysBecp 
BRA Status2 



D3-D7/A1-A4,-(SP) 
A1,A4 

dCtlWindo\v(A4) 
Status4 
#4,SP 
SP,-(SP) 

#TaillcTampon,DO 



MemoireOK 

MOVEA.L 

SUBQ.L 

MOVE.L 

PEA 

PEA 

MOVE 

MOVE 

MOVEQ.L 

MOVE.L 

MOVE 

CLR.L 



A0.A3 

#4,SP 

A3,-(SP) 

Rcctrenetre 

litre 

#Oui,-<SP) 

*noCrowDocProc,-(SP) 

ff-LDO 

D0,-(SP) 

#Oui,-(SP) 

-(SP> 
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_NewWindow 
_SetPort 

MOVRI. A3,dOIWindow(A4) 

MOVE.L DctlRefNum(A4),WindowKind(A3) 

; Affickagc dcs boutons 

SUBQ.L #4,SP 
MOVE.L 
PEA 
PEA 
MOVE 
CLR.L 
CLR.L 
CLR.L 



A3,-(SP) 
RectBoutoaF 
TitrcBoutonF 
#Oui,-(SP) 
-(SP) 
-(SP) 
-(SP) 
_NewControl 

MOVE.L (SP),HandieCUF(A3) 

MOVE.L A3,-<SP) 

PEA RectBouronC 

PEA TitreBoutonC 

MOVE #Oui,-(SP) 

CLK.L -(SP) 

CLR.L -(SP) 

MOVEQ #1,D0 

MOVE.L DO.-(SP) 

_NewConlrol 

MOVE.L (SP)+,HandleCtlC(A3) 
ST DrapeauMdf(A3) 
BSR InvalldeBouton 

; Enregistiement 'TextEdit' 

BSR PoliceChicago 

SUBQ.L M$P 

PEA RcctVisTexte 

MOVE.L (SP)r(SP) 

_TEiVew 

MOVE.L <SP>,HandlText(A3> 
_TEActivate 

SF DrapoauCurs(A3) 
JnitCursor 

Srahis? 

.SetPorl 
Status4 

MOVE.L dCtlWindow(A4),A3 
Scatus3 

MOVEM.L (SP)+,D3-D7/A1-A4- 
Status 

MOVEQ #0,DU 
RTS 

; Fermeture de I 'accessoire 

Fermeturo 

MOVEM.L A3-A4,-(SP) 

MOVEA.L AI,A4 

MOVEA.L dCrlWimHow(A4),A3 

MOVE.L HandIText<A3),-<SP> 

_Te Dispose 

MOVE.L A3,-(SP) 

_Dispos\Vindow 

CLR.L dCHWindnw(A4) 

MOVEA.L A4,A1 

MOVEM.L (SP)+,A3-A4 

BRA Status 

; Routine de contralp. 

Controle 

MOVEM.L D3-D7/A1-A4 / -<SP) 

MOVEA.L A1,A4 

MOVEA.L A0,A2 



MOVE A L 


ACt] VJinAnwt A41 A1 


MOVE.L 


-(SP1 


SetPort 




MOVE 




CMPT 


TTdLLd Vcl 11, LA) 


BEQ.S 


Even erne 


CMPI 


ttAcrt. nrsnr 1 )( ) 

TTa V.V V- Ul JWI t L*s\J 


BEQ 


Curs our 




ft d t tV-Ul, LA/ 


BEO 


vvUUtl 


("*\TPT 

1*11 1 




RFC) 




CMPI 


#accPaste,DO 


BEQ 


Culler 


CMPI 


#accClear,DO 


BEQ 


Effacer 


BKA 


Status3 


; Aiguillage des fitfnements 


Evenement 




MOVEA.L 


CSParam(A2),A2 


MOVE 


EvtNum(A2),D0 


CMPI 


#mButDwnEvt,DO 


BEQ.S 


Contenu 


CMPI 


#keyDwnEvl,DO 


BEQ 


Touche 


CMPI 


#autoKcyEvt,DO 


BEQ 


Touche 


CMPI 


#updarEvt,DO 


BEQ 


MibL'Jour 


CMPI 


#activateEvt,DO 


BEQ 


Active 


BRA 


Stahis3 


; 'click' dans la fenetre de I'accessoire 


Contenu 




PEA 


EvtMouse(A2) 


_GIobalTo 


^ocal 


CLR 


-(SP) 


MOVE.L 


EvtMouBG(A2),-(SP) 


MOVE.L 


A3,-(SP) 


PEA 


HandleCnntrole(A3) 


_FindControl 


1ST 


ISPJ+ 


BEQ.S 


®i 


CLR 


-(SF) 


MOVF.T. 


HanHleConfrm1e(AU-(SP) 


MOVE.L 


EvtMouse(A2),-(SP) 


CLR.L 


-(SP) 


JTrackControl 


TST 


(SP)+ 


REQ.S 


®1 


SUBQ.L 


#4,SP 


MOVE.L 


HandleControle(A3),-(SP) 


_GetCRefCon 


BSR 


Boutons 


BRA 


Starus3 


©1 CLR 


-(SP) 


MOVE.L 


EvtMouse(A2),-(SP) 


PEA 


RcctVisTcxtc 


_PtInRe<t 




TST 


(SP)+ 


BEQ 


Statu s3 


m MOVE.L 


evtMouse(A2),-(SP) 


BTST 


#shif"tKey,cvtMcta(A2) 


SNE 


DO 


MOVE.B 


D0 ( -(SP) 


MOVE.L 


IIandIText(A3),-(SP) 


l'fc Click 





Sue la 
disquette 
Pom's 29, cet 
accessoire est 
install dans le 
menu <t avec 
les 5 autres 
accessoires 
dgcrits paqe 
75. 
II est 
ggalem&nt 
sous la forme 
d'un fichter 
'Font 
DA/Mover' 
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BRA 



Status3 



PEA 



Chainel 



; Action stir le clavier. 

Touche 



_DrawString 







ttl»,c v u vie la \r\£i 




BEQ.S 


@4 




MOVE 


cvtMcssapc t2f A2) DO 




ANDI 


fl'SOF no 




SUBI 


#86 DO 




BEQ 


Co Her 




SI IRO 






BEQ 


Couper 




SUBI 


#£FFFR DO 




BNE.S 


@4 




BRA 


Copier 


@4 


CM PI B 


#CR evtMessape+^f A2i 




BEQ.S 


@5 




CMPI.B 


ffBS,evtMessage+3(A2) 




BEQ.S 






BSR 


DcRefe rence? 




CMPI 


#MaxC teLeneth(AG) 




BNE.S 






MOVE 


teSelStart(AO),DO 




CMP 


teSelEnd(A0),DO 




BNE.S 


@1 


@5 


MOVE 


#7,-(SP) 




_SysBccp 






BRA 


Status3 


®\ 


MOVE 


evtMessage+2(A2),-(SP) 




MOVE.L 


HandlText(A3),-(SP) 




_TEKey 




Key2 






BSR 


DeKeterence 




CMPI 


#MaxC,teLsngth(AO) 




BEQ.S 


©1 




BSR 


InvalideBouton 




BRA.S 


@2 


©1 


BSR 


ValideBouton 


@2 


BRA 


Starus3 



; Rvutim in mine a pur 

Misejour 

MOVE.L A3,-(SP) 
_BeginUpdate 
BSR PoliceChicago 
MOVE AX (A5),A0 
PEA gray(AO) 
PenPat 



#S00300008,-(SP) 
#S00300160,-(SP) 
#S0050000MSP) 
#$005001 60, -(SP) 
RectGrisTexte 



MOVE.L 
_MoveTo 

MOVE.L 

_LineTo 

MOVE.L 

_MoveTo 

MOVE.L 

_LineTo 
PEA 
FrameRect 

_PcnNormal 

PEA ReetTexte 

_FrameRei:t 

BSR AffichePoms 
MOVE.L #S00170030,-(SP) 
_MoveTo 

PEA ChaineO 

_r>rawString 

MOVE.L #$00260034, -(SP) 
„MoveTo 

BSR PoliccMonoco 



PolicoChica go 
FichierCourant(A3) 
@2 

Af fChaineFichier 
AffCha ineType 
#S006400FD,-(SP) 



BSR 
TST.B 
BEQ.S 
B9R 
BSR 
@2 MOVE.L 
_Mov>cTo 

PEA Chained 
_DrawString 
©1 MOVE.L A3,-(SP) 
_DrawControls 
PEA RectVisTexte 
_fcraseKect 

PEA portRcct(A3) 

MOVE.L HandlText(A3),-(SP) 

.TEUpdate 

MOVE.L A3,-<SP) 

_EndUpdate 

BRA Status3 

; Rrpnnv. a un message. 'Activate' nu 'Deactivate' 
Active 

BTST #activeFlag,evtMBut(A2) 
BEQ.S @I 

MOVE.L HandlTcxt(A3),-(SP) 

_TEActivale 

SF DrapeauCoIle(A3) 
BRA Starus3 
@1 MOVE.L HandlText<A3),-<5P) 
JTEDeactivate 

BRA Status3 



J 



cl - 



*5» 



; Changement de la forme du curseur. 


Curscur 




Buffer 


SET -4 


LINK 


A6 y # Buffer 


MOVE.L 


HandlText(A3),-(SP) 


.TEIdle 




PEA 


Buffer(A6) 


_CclMousc 




CLR 


-(SF) 


MOVE.L 


Buffer(A6),-(SP) 


PEA 


RectVisTexte 


PtlnRect 




TST 


(SP). 


BEQ.S 


@1 


TST.B 


DrapeauCurs(A3) 


BNE.S 


@2 


SUBQ.L 


#4,SP 


MOVE 


#iBearnCursor,-<SP) 


_GetCursor 




MOVEA.L 


<SP)+,A0 


MOVE.L 


<A0),-(SP) 


_Se (Cursor 




ST 


DrapeauCurs(A3) 


BRA.S 


m 


m TST.B 


DrapeauCurs(A3 ) 


BEQ.S 


@2 


SF 


DrappauOurs(A3) 


jnilCuisor 




@2 UNLK 


A6 


BRA 


Status3 


Cnuper 




BSR 


VerifSelection 


BEQ 


Status3 


MOVE.L 


HandlText(A3>, (SP) 
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_TeCut 




SUBQ 


#4,SP 


BSR 


TEToScrap 


MOVE.L 


te9crpHandle,-(SP) 


BSR 


ValideBouton 


MOVE.L 


rTEXT,-(SP) 


BRA 


Status3 


PEA 

_GctScrap 


scratch 8 


Copier 




MOVE.L 


(SP)+,DO 


BSR 


VerifSelection 


BPL.S 


m 


BEQ 


Status3 


MOVEQ 


#0,DO 


MOVE.L 


HandlJext(A3),-(SP) 


(81 MOVE 


DO.TeScrpLength 


_TeCopy 




MOVEM.L 


(SP)+,A0-A1/D0-D2 


BSR 


TEToScrap 


RTS 




BRA 


Status3 


TEToScrap 




Coller 




MOVEM.L 


A0-A1/DU-D2,-(SP) 


TST.B 


DrapeauColIe(A3) 


SUBQ 


#4,SP 


BNE.S 


@2 


_ZeroScrap 


ST 


DrapeauColle(A3) 


ADDQ 


#4,SP 


BSR 


TEFromScrap 


MOVEA.L 


teScrpHandle,AO 


@2 MOVE A. L 


HandIText(A3),A0 


SUBQ 




MOVEA.L 


(A0) y AQ 


_Ge»HandIeSize 


MOVE 


TeScrpLength,DO 


MOVE.L 


DO,-(SP> 


ADD 


teLength(AO),DO 


_HLock 




MOVE 


teSelEnd(AO),Dl 


MOVE.L 


#TEXT ,-(SP) 


MOVE 


teSelStart(A0),D2 


MOVE.L 


(AO)XSP) 


SUB 


02,01 


_PutScrap 




SUB 


D1,D0 


MOVEA.L 


teScrpHandle,AO 


04PI 


#MaxC+1.D0 


_HUnLock 




BLT.S 


©1 


MOVb.L 


<SI J )+,DO 


MOVE 


#7,-(SP) 


MUVhM.L 


(br;+,.Au-Al /Uv-DI 


_SysBeep 








BRA 


Status3 






@1 TST 


TeScrpLength 


DeReference 




BEQ 


Statu s3 


MOVEA.L 


HandlText(A3),A0 


MOVE.L 


HandlText(A3),-(SP) 


MOVEA.L 


(AO),AO 






RTS 




BRA 


KeyZ 


PoliceChicago 




Effacer 




CLR 


-(SP) 


BSR 


VerifSelection 


JTextFont 




BEQ 


Status3 


MOVE 


#12,-<SP) 


MOVE.L 


HandtTeXr{A3WSP) 


_TextSize 




JTEDcleic 




RTS 




BSR 


ValideBouton 






BRA 


Status3 


PolicP'Monaro 
MOVE 


#monaco / -<SP) 


ValideBouton 




JTextFont 




TST.B 


DrapeauMdf(A3) 


MOVE 


#9,-<SP> 


BNE.S 


©1 


_TextSize 




TST.B 


FichierCourant(A3) 


RTS 




BEQ.S 


©1 






BSR 


DeReference 


VerifSelection 




CMPI 


#MaxC,teLength(AO) 


BSR.S 


DeReference 


BNE.S 


@1 


MOVE 


teSelStart(AO),D0 


MOVE.L 


HandIeCtlC<A3MSP) 


CMP 


teSelEnd(AO),DO 


CLR 


(SP) 


RTS 




©1 



_HiliteControl 
ST 
RTS 



DrapeauMdf(A3) 



InvolidcBouton 

TST.B DrapeauMdrXA3J 

BEQ.S <5>1 

MOVE.L HaiidteCUC(A3)>-(SP) 

MOVE #SFF,-(SP) 
_HilitcCortlrol 

SF DrapeauMdf(A3) 
@1 RTS 

TEFromScrap 

MOVEM.L A0-A1/D0-D2,-(SP) 



AffichcPoms 

Tampon SET -bitmaprec 
LINK A6,#Tampon 
MOVEM.L A0-A4/D0-D2,-(SP) 
LEA Poms,AO 
MOVE.L AO Jampon I baseAddr(A6) 
MOVE ff4,Tampon+rowBytes(A6) 
CLR. L Tampon +bon n d s( A 6) 
MOVE.L #S200020 / Tampon+l»ounds+boUoan(A6) 
PEA Tampon+baseAddr(A6) 
MOVEA.L A3,A0 
ADDQ.L ff2,A0 
MOVE.L AO.-(SP) 
PEA Tdinpon-rbouiids(A6) 
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PEA RoctPoms 
CI.R -<SP) 
CLR.L -(SP) 
_CopyBits 

MOVEM.L (SP)+,A0-A4/DO D2 

UNLK A6 

RTS 

AffChaineFichier 

MOVE.L #$00470008,-(SP> 
_MoveTo 

PEA Chaine2 

JDrawString 

PEA FidiierCourant(A3) 

_DrawStrirg 

KTS 



AffChaineType 

PFA RerrFfTType 
_ErascRcct 

MOVE.L #S004700D8,-(SP) 

_MoveTo 

PEA Chaine3 
_DrawString 

PEA TypeFichier+1(A3) 

JDrawString 

MOVE #' />(SP) 

JDrawChar 

PEA CrGatourFichier+l(A3) 

JDrawString 

RTS 
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InfoFichier 
LEA 
LEA 
MOVE.L 
MOVE 



CLR 
CLR.B 

_GctFileInfo 

RTS 



TamponIO<A3),A0 
ReponseGetFile+rName(A3),Al 
Al,ioFileNa me(AO) 
RupuiiseGelFile+rVolurne(A3),J 
ioVRefNum(AO) 
iuFDirlndex(AO) 
ioFileType(AO) 



RectFenctre 


DC 


41,4,152,365 


RectGrisTexte 


DC 


85,245,1 07,286 


RectTexte 


DC 


85,285,107,353 


KectVisTexte 


DC 


85+3,285+3,107-3,353-3 


RectBoutonF 


DC 


86,8,106,80 


RoetBoutonC 


DC 


86,88,106,232 


RoctPoms 


DC 


8,8,40,40 


RectEffType 


DC 


55,248,77,352 


ChaincO 


DC.B 


45,'La revue francophone des J 






utilisatGurs &" Apple' 


Chainel 


DC.B 


49/Editions MEV — 12, rue d"Anjou J 






— 78000 Versailles' 


Chaine2 


DC.B 


8/Fichier ',0 


Chaine3 


DC.B 


5,Type ' 


Chaine4 


DC.B 


4/CIef',0 


TirreBouronF 


DC.B 


7,'Fichier' 


TitreBoutonC 


DC.B 


15,'Codage/decodage* 




.Align 


2 



Poms 
DC.L 
DC.L 
DC.L 
DC.L 
DC.L 



500000000,500000050^00000080^00001100 
SO000O8AA,$n0O00l55,SO0OOOOAA,S00O014Ol 
$00002 A02,S0000451 4,50000 A280 ,$0001 5140 
SUU0228AO,S00051440,$00028AOO £0001 4560 
$O028A2AQ,S005<15140.$00SA2980,$00453D7C 



DC.L S00A2FFD6,S14j1FEAB,52A28FD43,S4j15FAA3 
DC.L SA20AFD45,S5100FAA3,S2A007D46514007AAA 
DC. L SO A0O3D54,$05001 A A8,$02800DD0,SOl 000660 



Curseurl 

DC.L 
DC.L 
DC.L 
DC 

Curseur2 
DC.L 
DC.L 
DC.L 
DC 

Curseur3 
DC.L 
DC.L 
DC.L 
DC 

Curseur4 
DC.L 
DC.L 
DC.L 
DC 



S07C01 930,S21 Q841 04,5410481 Q2,$81Q2FFFE 

S81028102,S41044104,S21081930507COOOOO 

0,0,0,0,0,0,0,0 

7,7 

S07C0l830,S20484044,S4084B082,S8DO28382 

SS162821A,S42044404,S24081830,S07C00000 

0,0,0,0,0,0,0,0 

7,7 

$07C01830,S20085014,$48248442,S82828102 
$82828442,$48245ni4,$?n081S30507COn00O 



7,7 



S07COI830,$24084404,$4204821A,$81628382 

58D02B082,S4O844O44,S2048l830,507Cnnnnn 

0,0,0,0,0,0,0,0 

7,7 



Source 'Kriiptosll.Asm' 

; Traitement en cas d'action sur un bouton. 

Boutons 

LINK A6,#0 

TST 10(A6) 

BEQ BuutunFithier 

/ Action sur le boulon 'Codage/decodagc' 
BoutonCodage 

; Capie de la clef dons le tampon de quatre octets 'Clef 

BSR DcRcfcrcncc 

MOVEA.L teTextH(A0),A0 

MOVEA.L (A0),A0 

LEA Clef(A3),Al 

MOVEQ #3,D0 

@1 MOVE.B (A0)+,(A1)+ 

DBRA D0,@1 

; Verification de la clef : on compare deux caracteres 
■ cnn'Jc.utifs. S'il irmf identiques, on h>$ modify*. 



@2 



LEA 


Cle?f(A3),Al 


MOVEQ 


#2,D5 


MOVE.B 


0(A1,D5),D0 


CMP.B 


1(A1,D5),D0 


BNE.S 


©3 


MOVE.B 


1(A1,D5),D1 


ADDQ 


#1,D5 


ADD.B 


D5.D0 


ADD.B 


D5,D1 


SUBQ 


#1,D5 


FORI B 


#SFF,D0 


MOVE.B 


D0,0(A1,D5) 


MOVE.B 


D1.KA1.D5) 


DBRA 


D5,@2 



@3 



; Traitement de la partie 'donnees' du fichier. Si le fichier ne 
; cvntient que des ressources, ce segment n'est pas execute'. 

TST.L LongueurD(A3) 
B EQ. S Pa rt ieRessources 
PartieDonnoos 
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; Ouztcrturc dc la partie 'donne'cs'. 

LEA TamponIO(A3),A0 

LEA ReponseGetFile+rName(A3),Al 

MOVE.L Al,ioFileName(AO) 

MOVE ReponseGetFile+rVolume(A3)J 

ioVRefNum(AO) 

LEA Tampon522(A3) / Al 

MOVE.L Al,ioOwnBuf(A0) 

MOVE.B #fsRdWrPerm,ioPermssn(AO) 

_Opcn 

; Appel dU sous-programme de codage. 
BSR Code_Decode 

; Positionncmenl de la fin de fichier pour la par tie 'don nets'. 

LEA TamponIO(A3),A0 
MOVE.L LongueurD<A3),ioLEOF(A0) 
_SefFOF 

; Fermeture de la partie 'donne'es ' du fichier 

LEA TamponlO(A3) f A0 
_Close 

; Traitement de la partie 'ressource' du fichier. Si le fichier ne 
; contient que des ressources, ce segment n'est pas execute*. 

PartieRessources 

TST. L LongueurR(A3) 
BEQ FinCodage 

; Ouoerture de la partie 'ressource'. 

LEA TamponIO(A3),A0 

LEA ReponseGetFile+rName(A3),Al 

MOVE.L A l,ioR loNa mo(A0 J 

MOVE ReponseGetFile+rVoJume(A3),J 

ioVRefNijm(Af)) 

LEA Tampon522(A3),Al 

MOVE.L AUoOwnBuf(AO) 

MOVE.B #fsRdWrPerm,ioPeni&sn(AO) 
.OpenRF 

; Appel du sous-programme de codage. 
DSR Code_Ducude 

; Positionncmcnt dc la fin de fichier pour la partie 'ressource'. 

LEA TamponIO<A3),A0 
MOVE.L LongueurR(A3),ioLEOF(A0) 
.SetEOF 

; Fermeture de la partie 'ressource ' du fichier. 

LEA TamponIO(A3),AU 
Close 



FanCodage 
BSR 

; Codage du type 

MOVE.L 

MOVE.B 

ROR.B 

MOVE.B 

MOVE.B 

ROL.B 

MOVE.B 

MOVE.B 

ROR.B 

MOVE.B 

MOVE.B 



InfoFichier 

du fichier. 

Clef(A3),D5 
CIgf(A3),D0 

D0,Clef(A3) 

Clef+KA3),D0 

#?,D0 

D0,Clef+KA3) 
Clef+2<A3),D0 
#4,D0 

D0,CIef+2<A3) 
Clef+3(A3),D0 



ROL.B 

MOVE.B 

MOVE.L 

ROL.L 

MOVE.L 



#5,00 

DU,Clef+3(A3) 

Clef(A3),D0 

#3,D0 

D5,CW<A3) 



; Reecriture des informations a~u fichier avec le type modifie. 

LEA TamponIO(A3),A0 
EOR.L DG,inFllJsrWds+MCreator(AO) 
MOVE.L ioFlUsrWds+fdCreator(AO),J 
CreateurFichier+2(A3) 

_SetFileInfo 

BSR AffChaineType 
; Mise a jour du volume. 



LEA 
CLR.L 
MOVE 

_FlushVol 



TamponIO(A3),A0 
loFileName(AO) 
ReponseGetFile+rVo]ume(A3)J 
ioVRefNum(AO) 



; Effacement de la zone de saisie 

MOVEQ #0,D0 

MOVE.L DO.-(SP) 

MOVEQ M<DQ 

MOVE.L DO,-(SP) 

MOVF.L HandlText(A3),-(SP) 

JFESttSekd 

MOVE.L HandlText(A3),-(SP) 
_TEDcIcte 

BSR InvalideBouton 

BRA SortieBoutons 

; Action sur le bouton 'Fichier' 
Boutonh'ichier 

; Affichuge de la fenitre de selection. Les fichiers sont filtres 
; par la procedure 'FiltreFichiers'. 



MOVE.L 


#S001EOOOC,-(SP) 


CLRL 


-(SP) 


PEA 


FiltreFichiers 


MOVE 


#-l,-(SP) 


CLR.L 


-(SP) 


CLRL 


-(SP) 


PEA 


ReponseGetFile(A3) 


MOVE 


#SFGetFile,-(SP) 


_Pack3 




TST 


ReponseGetFile+rGood(A3) 


BEQ.S 


SorticBoutons 



; Lecture des infos sur le fichier. 
BSR InfoFichier 

; Diplaccment du nom dc fichier, et modification s'il est trop 
; long pour tenir dans la place qui lui est reservi. 

MOVEQ #0,DO 

MOVE.B ReponseGetFile+rNamG(A3),D0 
ADDQ -#1,D0 

LEA ReponseGetFile+rName(A3),A0 

LEA FichicrCourant(A3),Al 

_BlockMove 

CLR -(SP) 

PEA FichierCourant(A3) 

_StringWidth 

cmpi mu,(s?h 

BLT.S m 
MOVEQ #0,D4 



Pom's n° 29 



®2 



LEA FichierCourant(A3) / A2 
MOVE.B (A2),D4 
MOVE.B #\..",0(A2,D4) 
CLR -(SP) 
PEA FichierCourantCA3) 
_StringWidth 



CMPI.L rAPPL,ioFlUsr\Vds+fdType(AO) 
BEQ.S FiltreNon 

CMPI.L rMACS',ioFlUsrWd:,+fdCredtur<AO) 



CMPI 
BLT.S 
SUBQ.B 
SUBQ 
BRA.S 



#144,(SP)+ 
©1 

#I,(A2] 

#1,D4 
@2 



; Mise en reserve des infos qui seronl ulilise'es par la suite. 

©1 MOVE.L TamponIO+ioFlUsrVVds+fdType(A3)J 

TypeFichier+2(A3) 
MOVE.L TamponIO-HoFlUsrWds+fdCreator(A3),J 

CreateurFichier+2(A3) 
MOVE.B #4,TypeFichier+HA3) 

MOVE.B #4,CrcoteurFichier+l(A3) 

MOVE.L TamponIO+ioFILgLen(A3) / LongueurtXA3) 

MOVE.L TamponlO+ioFlRLgLGn(A3),LongueurR(A3) 

; Vers affichage des chatnes. 



BSR 
BSR 
BSR 
SortieBoutons 
UNLK 
MOVE.L 
RTS 



Af fChaineHchier 

AffChaineType 

ValidcBouton 

A6 

(SP)+,(SP) 



; Routine de codage (mi decodage). 
Code Decode 



©1 



PEA 


Curseurl 


_SetCursor 




SUBQ.L 


#4^P 


_TickCou nt 




MOVE.L 


(SP)+,CompteurTimiTig(A3) 


MOVE.L 


Clef(A3),D6 


LEA 


Scratch8.A4 


LEA 


Curseurl ,A2 


MOVEQ 


#LD4 


MOVEQ 


#-4,D5 


MOVEQ 


#4,D7 


BSR 


Curseu rAttente 


LEA 


TainponIO(A3),A0 


MOVE.L 


D7,ioReqCount(A0) 


MOVE.L 


A4,ioBuffer<A0) 


MOVE 


#fsAtMark,ioJ J osMode(AO) 


_Read 




BNE 


©2 


ROL.L 




EOR.L 


D6,scratch& 


MOVE.L 


D7,ioReqCount(A0) 


MOVE.L 


A4,ioBuffer(A0> 


MOVE 


#fsFromMark,ioPosMode(AO) 


MOVE.L 


D5,ioPosOffset(A0) 


_Wrile 




BRA.S 


©1 


SF 


DrapeauCurs(A3) 


_InitCursor 




RTS 





@2 



; Filtre pour la fenitre de selection des fichiers. 

FiltreFichicrs 

LINK A6,#0 

MOVEM.L D0-D2/A0-A2 / -(SP) 

MOVE.L fi(A6),A0 
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1 nil Ll >UI 1 


TST.B 


ioFlAttrib( AO) 


RMI S 


X 1 1 i 1 C < 11 1 


MOVE 


ioFlUsrWds+fdFIags(AO),C 


ANDI 


#S50f)0 DO 


BNE S 


FiltrpNnn 


CLR 


12(A6) 


BRA.S 


FiltreOK 


FiltreNon 




MOVE 


*5FFFF,12(A6) 


FiltreOK 




MOVEM.L 


(SP)+,D0-D2/A0-A2 


UNLK 


A6 


MOVE.L 


(SP) / 4(SP) 


ADDQ.L 


#4,SP 


RTS 




; Gestion du curscur 'anim£\ 


CurseurAttente 




SUBQ.L 


#4,SP 


TickCotiiil 




MOVE.L 


ComptcurTiming(A3),D0 


ADDQ.L 


*2,D0 


CMP.L 


CSP)+,D0 


BMI.S 


Chan gpCursnu r 


RTS 




ChangeCurseur 




MOVE 


#68,00 


MULU 


D4,D0 


PEA 


0<A2,DO) 


_SetCursor 




SUBQ.L 


#4,SP 


_TickCounl 




MOVE.L 


(5P)+^ompteurTiming(A3) 


ADDQ 


#1,D4 


ANDI 


#$0003,04 


RTS 





Apple et Minitel : 

les caracteres setni-graphiqiies 

L'article de la page 10 de ce numero vous donne 
les codes des caracteres semi-graphiques ainsi que 
le moyen d'y acceder ; voici un petit programme 
qui vous permettra de concretiser la methode. 
N'oubliez pas de brancher le cable Mac/Minitcl ! 

DEFINT A-Z 

OPEN TOMtWOO^l" FOR OUTPUT AS 1 
PRINT*1,CHR$(&HC) CHK$(&HE); 
GOSUB Affiche 

PRINT#1,CHR$(&H1B) CHR$(&H5A>; 
GOSUB Affiche 
PRINT#1,CHR$(&HF); 
CLOSE:END 

Affiche: 

FOR I=&H20 TO &H3F:PRINTtfl,CHRS(I);:NEXT 
FOR 1=&H5F TO &H7E:PRINT#1,CHR$(1);:NEXT 
PRINT#1,CHRS03) CHRS(10):RETURN 
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Cryptage de fichiers christian mar A 
confidentiels : KmptOS 



II arrive frdquemment que des 
fichiers utilises sur un ordinateur 
doivent rester confidentiels, 
courrier privc, rapport 
professionne!, recette de la sauce 
aux capres par exemple... Un 
programme Basic, un source 
assembleur, une feuille de calcul 
Multiplan en cours d'elaboration 
(pardon, en cours de 
ddveloppement). doivent parfois 
etre hors d'atteinte pour eviter des 
modifications intempestives. 

C'est Tobjet de la comrnande 
externe ProDOS que nous vous 
proposons ici. 

Nous ne reviendrons pas sur le 
principe des commandes extemes 
ProDOS, aborde par A. Avrane 
dans le numtJro 20 de Pom's ; 
rappelons simplement qu'une fois 
insiallde, une comrnande exteme 
s'utilise en mode direct ou en 
mode programme tout comme 
CAT, VERIFY, ou RENAME 
par exemple. 

Le cryptage 

La clef comporte 4 caracteres 
quelconques, y compris les 
caracteres de controle, ce qui 
permet de choisir parmi plus de 
200 000 000 de clef possibles... 
Le programme modifiera 
toutefois (sans le dire) les clefs 
comportant plusieurs caracteres 
identiques. 

Le OU EXCLUSIF 

Un OU EXCLUSIF (EOR) est 
effectue entre les 4 premiers 
caracteres du fichiers et la clef. La 
table de vMU du OU exclusif est 
la suiyantc ; 

1 EOR 1 = 

1 EOR = 1 

EOR 1 = 1 

EOR = 
Autrement dit. Van nit Vautre, 
mais pas les deux (Initiation a 



l'assembleur 4. G. Michel, 
Pom's 14). 

Prenons par exemple les 4 
premiers caracteres d'un fichier : 
'jour' ce qui correspond aux 
codes ASCII $6A, $6F, $75, 
S72. 

Prenons pour clef ; c z$$l J 
c'est-4-dire $5A, $53, S53, $31. 
Voici la representation binairc de 
chacune des deux chaTnes et 
l'operation OU exclusif effeciuee 
entre les deux : 

on m ai am 1 01111011101 01 01110010 
01011010010100110101001100110001 



00110000001 in 000010011001000011 
Le resultat correspond h $30, 
$2C $26, $43 soit : \Q<6C. 
Ici, on peut done ecrire : 

jour EOR zssi = 0<&c 

Le mot jour aprfcs codage est 

m6connaissable. 

La rotation 

Pour ne pas trop faciliter le uavail 
de l'6ventuel espion, avant 
chaque EOR entre 4 caracteres du 
fichier et la clef, on effectue une 
rorarion de cette clef d'un bit a 
gauche : 

Prenons pour exemple la clef 
pi 59. Avant le premier codage, 
nous decalons tous les bits d'une 
position sur la gauche (ROL en 
assembleur). II faut bien entendu 
recuperer le bit qui tombe k 
gauche dans le bit de retenue du 
registre d'etat pour le faire entrer 
a dioite. 



P159 = 

£2 01 0000001 1 OOOOOOl 1 01 01 0O111 001 

P159 d6ca\6 = 

10100 0QO0 110QQQQQ11 01 010 UI11U 010. 

Le de gauche est passe a droite 
et la clef utilisee reellement 
devient : ' [espacelOjr ' 

Du fait de cette transformation a 
chaque etape, un fichier compose 



uniquement d'espaces et crypte 
avec la clef *P159 % donne le 
resultat suivant ; 

'BJR y dtE!)IjL3s5&E£Z,mnl8..: 

(les caracteres soulignes sont des 
caracteres de controle). 

Enfin. un jeu d'EOR et 
decrementation transforme la 
clef an cas ou deux caracteres 
consecutifs seraient identiques 
(clef aabb par exemple). 

Creer la comrnande 

Si vous disposez de la disquette 
d'accompagnement de Pom's, ce 
paragraphs ne vous est pas 
indispensable. 

Pour obtenir la comrnande, 
saisissez le fichier binaire 
KRUPTOS listd ci-apres puis 

sauvegardez-le. 

Si vous optez pour la saisie du 
source assembleur, aprfes 
assemblage, vous obtenez le 
fichier kruptos .code qui n'ext 
pas directcmcnt executable. II 
vous faut egalement le 
programme d'installation des 
commandes extemes cmdload 
d'A. Avrane (Pom's 20). Ce 
programme est constitue des 
codes qui vont de $2000 a $20FF 

dans le fichier kruptos list6 
ci-apr&s. Vous avez maintenant 
entre les mains les deux fichiers 
ncccssaircs ; faitcs alors : 

BLOAD CMDLOAD 

BLOAD KRUPTOS . CODE 

BSAVE KRUPTOS , A$ 2000 , L$30Q 

Mode d'emploi 

Pour installer votre nouvelle 
comrnande, faites : 

-kruptos 

La syntaxe pour chaque cryptage 
et decryptage est la suivante ; 
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KRUPTOS chemln d' acces, cl 
e£ [,Sslot] [,Ddrive] 

Chimin d'accis : nom de votre 
fichier, eveniuellemem precede de 
prefixes, 

Clef : 4 caracteres, 

Slot et Drive : sont optionncls. 

Si la clef n'est pas valide, vous 
sere? gratify d'un INVALID 
PARAMETER. 

L'opdration dtant reversible, pour 
decrypter un fichier, il faut 
employer la mime commande, 
. . .avec la bonne clef. 

Si le fichier a ete cryptee & l'aide 
dc deux clefs successivement. 
decryptez-le avec les deux 
(1'ordre nest pas important). 

Note 



Fichier 'SECRET 



II s'agit du listage d'un fichier TEXT, creo par ApploWnter. A vous de trouver fa promior la 
clef qui a servi au cryptage et de nous appeler pour recevoir le cadeau indique 
ci-dessous... 

0000: 5GWde..m Fa. .enx B5 C7 57 64 7B OC 97 ED AO 46 40 83 1C E5 EE 78 

QOIO: .r.f.i't>~ry.-J(]> J A CC Ef 9C FC 35 FE F4 7B 9F 7E DD 28 50 17 3E 

0020: i,.VQU4, .Q*2<;;1i FF 7C IE D6 51 D5 B4 2C IB 51 FA B2 BC 8C 00 57 

0030: . , .9.ala7zc. . .4m 85 A7 9A 39 2E El Bl El B7 7A DC 06 06 06 7B 6D 

0O4C: oW. /.og. Q. !BC.K • €F 57 84 AF 89 FD 7B 00 52 BE Al 45 C3 05 4B A7 

0050: 4J'Jx t 3/LGHrEr!0 B4 CA 27 CA F8 A7 B3 2F 74 C7 48 F2 45 72 21 4F 

0060: NGv'es. .h2S0f .eD 4E C7 F6 27 FD 73 14 9F E8 B2 24 51 SB 04 E5 C4 

0070: FiG4Se$*$>Yc , >.A C6 69 C7 B4 B5 ES 24 A3 A4 2B D9 74 27 3E OE 41 

0980: Ko/N/QJ2u.QJE .. CB EF 2F 4E 2F 51 CA B2 FC 1A 51 CA 45 AO 95 10 

0090: T4J .-sVetMRGCr 77 CC B4 CA FF 2F. AD F3 56 F.5 74 CD 38 47 43 77 

OOAO: Zu.EFLzL. . .d-. .A DA 7C IE C5 46 CC FA 69 OD 14 9A E4 BD 97 07 41 

OOBO: .%.& n ux3RKl. . .cm 85 A5 82 2 6 22 F5 F8 B3 D2 4B EC 06 IB 19 63 6D 

OOCO: , . V: }%. Y. VwX. 2C OF D6 BA DD AS 2C 59 02 D6 F7 49 8C 00 04 A6 

OODO: 4. V-0z8jcCcC7> . B4 35 20 D6 AD BO FA 38 6A DC 43 E3 43 37 3E OE 

OOEO: . .e?>£YH[u. . .A<. OA 83 FB 3F BE 26 59 C8 DB F5 07 14 18 41 BC 97 

OOFO: J-afdrk LPb^uais CA 2D CO E6 B8 F2 6B FF CC 50 E2 7£ 7C 40 23 7A 

010Q: Ahf. ifjed. .tiAr. . Ll E8 3t 07 69 50 DD tD E< 06 05 C8 42 F2 85 IL 

0110: - A *.30# 2D DE AA 83 E7 30 A3 



Tous les fichiers sont cryptables 
par cctte commande sauf : 

• les fichiers de type SYS 
(ProDOS, Aw. System, Basic. 
System...), 

• ccux dc type DIR (catalogues 
de la disquette), 

• ceux de type SFO (commandes 
ProDOS), 

et ce, par souci de precaution ; un 
FILE TYPE MISMATCH vous 



rappelera k 1'ordre. Pour lever ces 
limites, supprimer les lignes 161 
a 167 du source. 

Cette commande est 2. manipuler 
avec precaution car decrypter un 
fichier avec une mauvaise clef 
reviem & le crypier deux fois. 
Dans ce cas, decryptez-le avec les 
deux clefs. 



II est vivement d6conseill6 
d'utiliser des caracteres de 
controle pour la clef : ceux-ci 
n'etant pas affichds, il est difficile 
de controler s'il n'y a pas de faute 
de frappe et on risque de ne pas 
savoir quel code a 6t6 utilise . . . 

a 



Source KRUPTOS. S 
Assembleur ProCODE 












2 




DSK 


KRUPT 


3 








4 


CLE 




6 


5 


PTR 




$43 


6 


HIMEM 




S73 


7 


READ_BUF 




$200 


8 


PR TNTEPR 




SBEOC 


9 


XTADDR 




9DE50 


10 


XLEN 




SB£52 


11 


XCNUM 




SBE53 


12 


PBTTS 




SRF e i4 


13 


VP AT HI 




SDECC 


14 


VPATH2 




SBE6E 


15 


GOSYSTEM 




SBE70 


16 


5SGIMF0 




SRF.R4 


17 


SGET 




$3EC6 


18 


SOPEN 




SBECB 


19 


SHEAD 




SBED5 


20 


SCLOSE 




SBEDD 


21 


SYSERR 




$BF0F 


24 


RT5 




SFF58 


25 


UfJ 




SC4 


26 


OPEN 




$C8 


27 


READ 




SCA 


28 


WRITE 




SCO 


29 


CLOSE 




sec 


30 


SETMARK 




$CE 


31 


GETMARK 




SCF 


32 


SETEOF 




$D0 




33 
34 
35 
3£ 
37 
38 
39 
40 
41 
42 
43 
44 
45 
4 6 
47 
48 
49 
50 
52 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 



GETEOF - $D1 

ORG S21 00 

• 

* Est-ce not re commande ? 



ProDOS 



3TnRT 



CID 



LDA i>FIN+$10D 

lda i>Lortr:-$ino 

V_OLDCHD LDA RTS 

LDA VP ATM 

STA PTR 

IDA VPATU1 +1 

STA PTR*1 



;est-ce crypte ? 



LDY il 

COMPAR LDA /PTR) , 7 

CMP COMMAND-1, Y 

HNt, NQ_CW 
1NY 

cpr $6+1 

3CC COMPAR 



* Demande a ProDOS suite commande 



DEY 
DEY 

STY XLEN 
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C7 




LDA 


40 




147 


LDA 


VP ATI/ 1+1 




68 




STA 


SYSERR 




1 48 


STA 


SO f EN +2 




$9 




STA 


XCNUM 




149 


STA 


SSGItfFO+2 




70 




IDA 


iiOOOOOOl 7 


/? nn/ns de fichisrs 


150 








72 




STA 


PBITS 




151 


LDA 


ttlMEM 




72 




LDA 


ftoooooioo 


/ slot /drive autozise's 


152 


STA 


SOPEN+3 




73 




STA 


PBITS*1 




153 


STA 


SREAD+5 




74 










7 14 




HTMFM-+ 7 

(J 1 llCtll^ 1 




75 


V SUITE 


LDA 


SOITE 




155 


STA 


SOPEN+4 




76 




LDA 


V SUITE*! 




156 








77 




STA 


XTADDR 




157 


LDA 


tuti 


;get file info pour 


78 




LDA 


V SUITE+2 




158 


JSR 


GOSYSTEM 


/type de fichier 


79 




STA 


XTADDR*! 




759 


RCS 


FRREtfR 




90 




CLC 






160 








81 




KT5 






161 


LDA 


S5GINF0+4 


; (juiiLiule type ficr/iiex 


82 










162 


CUP 


tSOF 


;un directory ? 


83 


NO_CMD 


SEC 






7 63 


BEQ 


ERRTYPE 




84 




JMP 


IV OLDCMD+1/ 


164 


CMP 


t$F0 


/unc commando PcoDOS ? 


85 










165 


BEQ 


ERRTYPE 




86 










166 


CMP 


tSFF 


/ iin fichier systente ? 


87 


* Concrole validite clef 




167 


BEQ 


ERRTYPE 




88 


» 








168 








89 










169 


LDA 


tOP EN 


/ouvre le fichier 


90 


SUITE 


LDA 


VPATH2 


r 'CLLcUI llUlll ll<3 X. i Jfc i 


1 70 


JSR 


G05YS TEH 




91 




STA 


CLE 




171 


BCS 


ERREUR 




92 




T.DA 


VPATH2+1 




171 








93 




STA 


CLE*1 




173 


LDA 


S0PEN+5 


/ rocopxo n [ do rcf exert cc 












1 74 


STA 


SRFAD + 1 




9b 




LDY 


SO 




175 


STA 


SUET+1 




96 




LDA 


(CLE) , Y 




176 


STA 


SCL0SE+1 




97 










177 








98 




TAY 






178 


LDA 


9 <READ_BUF 




99 




LDX 


to 




179 


STA 


5READ+~2 




100 










180 


LDA 


ft>READ_BUF 




101 




CMP 


9 ' / ' 




181 


STA 


5READ+3 




102 




BEQ 


SLASH 




182 








103 




INX 






183 


LDA 


tGETEOF 


/cherche longueur fichier 


104 




DEY 






184 


JSK 


tiUSYSTEK 




205 




BNE 


BCL 




185 


BCS 


ERREUR 




JOS 










186 








107 


SLASH 


CPX 


44 


/ c6flt6 .. _-.ii d t/ioi) 


187 


LDY 


94 


; • g. -j rdf: la longueur 


108 




titlQ 


CLt UK 


"& CBTSCt-PrQS ** 

f I V- LA A U U ^ v i ^ | 


188 


BGLGET LDA 


SGET, Y 




109 




LDA 


r «■ a 


/ non .* ' nvalid narameter 


189 


STA 


LUNGUZUR, I 




110 




JMP 


PR TMTFRR 




190 


DEY 






111 










191 


BNE 


BCLGET 




lit. 


CT.F (IK 


r.nx 


to 


r JQlJVc J q Llci 


192 








113 




i n i 






193 


w~ ———————— — — — — 






7 14 


RCV, 7 


J-AJrt 


fCLFi V 




294 


* Lectuze/ecriture 




115 




STA 


CLEF, X 




195 


* 






7 7fi 
1 1 1* 




ZNY 






196 








117 




INX 






197 


LDX 


94 


/on lira 4 octets 


118 




CPX 


14 




198 


STX 


S READ +4 




119 




BNE 


RCU 




199 








120 




DEX 






200 


LOOP LDA 


tGETMARX 


/ releve la position 


121 










201 


JSR 


GOSYSTEM 


/dons le fichier 


122 


BCL3 


LDA 


CLEF, X 




202 


BCS 


ERHEUR 




123 




DEX 






203 








124 




CMP 


CLEF, X 




204 


LDY 


92 


/la sauvegarde 


125 




BNE 


CLE_ VAL 




205 


BCLPOS LDA 


SGET+2, Y 




126 










206 


STA 


POSITION, y 




127 




TXA 






20/ 


DEY 






128 




ADC 


CLEF, X 




208 


BPL 


BCLPOS 




129 




EOR 


9%11111111 




209 








130 




STA 


CLEF, X 




210 


LDA 


tREAD 


/lit fichier 


131 




INX 






211 


JSR 


GOSYSTEM 




132 




TXA 






212 


BCC 


OK 




133 




ADC 


CLEF, X 




213 


CMP 


95 


/fin fichxer" 9 


234 




STA 


CLEF, X 




214 


BNE 


ERREUR 


/non : erreur 


135 




DEX 






215 


BEQ 


FINAL 




136 










216 








137 


CLE_VAL 


CPX 


to 




21 7 


ERRTYPE LDA 


tSD 


/file type mis/natch 


138 




BNE 


BCL3 




218 


ERR EUR JMP 


PRINTERR 




139 










219 








140 










220 


OK ROL 


CLEF 


/ modi tlcat Ion 


141 


* Ouve rture fichier 




221 


PHP 




' de la clef 


142 


* 








222 


RQR 


CLEF 




143 










223 


PLP 






144 




LDA 


VPATH1 




224 


LDX 


t3 




145 




STA 


S0PEN*1 




225 


BCLCLE ROL 


CLEF,X 




146 




STA 


SSGINFO+1 




226 


DEX 
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227 




BPL 


BCLCLE 




253 


3CLGET1 


IDA 


LONGUEUR, Y 


/car on a ecrit 


228 










254 




STA 


SCSRTf Y 


,*W x 4 ne?rf*r.s 


229 




LDX 


13 


; cod age 


255 




DEY 






230 


BCL2 


LDA 


READ BUc, X 




256 




BNE 


BCLGET1 




231 




EOR 


CLEFfX 




257 










232 




STA 


READ_BUF f X 




258 




LDA 


tSETEOF 


: remet a Jour 


233 




DEX 






259 




SSR 


COSY STEM 


; longueut 


23 4 




BPL 


BCL2 




260 




BCS 


ERR EUR 




215 










261 










23 6 




LDY 


§2 


,-restaure position 


262 




LDA 


t CLOSE 


;ferme fichier 


73 7 


RCI.P0S1 


I.DA 


POSITION, Y 


•pour ScriturG 


263 




JMP 


GOSYSTEM 


f rt>rm1nfi 


238 




STA 


SCET+2, Y 




2C4 










239 




DEY 






265 










OA ft 




qp r 

an. 


— ~ - . - o - 




~y 

266 


■ j i CJCn 








24 1 










767 




















269 










243 




JSR 




,"Ie pomteur 


269 




BJ?K 






"i A A 




OL J 


FDD F/ID 














24$ 










270 


COMMAND 


ASC 


'CHYPTE ' 




24 6 




LDA 




/rcccrit fichicr 


2 Jl 


CLEF 


DS 


4 




OA 7 




TOO 


"A PVC TPU 

ui/j Jj 1 CJn 




272 


POSITION 


DS 


3 




243 




BCS 


ERR EUR 




273 




DS 


4 




249 










274 










250 




BCC 


LOOP 




275 


FIN 




» 




251 










276 


IGWC 


m 


FIN-START+S1Q0 


252 


FINAL 


LDY 


$4 


;reprend longueur 


277 











Recapitulation 




£ut U muy 


•a n 
Jo 

02 


OU 

V J 


Oft 

00 


00 


00 


AD 


Of} 

99 


2P1t) *CA TO PA A? 01 RD 00 02 
2240-5D 82 22 9D 00 02 CA 10 


'KRUPTOS 








£. _ UU • I/O 


A 

t\J 




1*1 J 


•J 4. 


/lis 






224R-F4 AO 02 B9 86 22 99 C9 


















£1 L/o . nu 


£C 
Ou 


HP 


O J 


h a 






RF 


22^0'RF. 88 10 F7 A9 CE 20 10 


















2110: 85 


49 


AO 


01 


Bl 


48 


D9 


la 


55h5»Dr on fn AO f a 00 70 

t «-. 3 a : OIL Ov *-U t-iS *=W » w* D— 


Apres avoir saisi cette 








£l its z 22 


no 


2U 




CD 


07 
u > 


QO 


PA 


2260:B0 C6 90 A3 AO 04 B9 89 


recapitulation sous moniteur, 




2120:88 


88 


8C 


52 


BE 


A9 


00 


8D 


2260:22 99 C6 BE 88 DO F7 A9 


vous la sauvegarderez par : 




2:1 2o : Ut 


or 


on 


?J 


DC 
OC 


2 

Si 9 


7 


Ou 


2270'DO 20 70 BE BO B2 A9 CC 


DSAVE KRUPTQ$,A$2QQQ, 




zijq:j4 


at 


A? 


U1 


on 


55 


Bp 


nu 


22 79 :4C 70 BE 00 4 3 52 5 9 50 


L$28D 
















21 38 : 4C 


21 


AD 


38 


21 


8D 


50 


BE 


ooo/i.Ci* iic /in nn nn rif\ tin ntt 

22 OU : 3 H 40 uu uu uu uu uu uu 


















21 40 'AD 

nu 


39 


21 


8D 


52 


BE 


18 


60 


2288:00 00 00 00 00 


20O0:AD 


00 


BF 


C9 


4C 




05 


As* 


Qo ; Jo 






7 7 

S 1 




6F 


OF 






2008:87 


4C 


ED 


FD 


AD 


4D 


BE 


FO 


2150:06 


AD 


6F 


BE 


35 


07 


AO 


00 




2010:05 


A9 


15 


4C 


09 


BE 


AD 


06 


2158-.B1 


06 


A8 


A? 


no 


fl? 


06 


C9 


Apple & Minitel 


2018:21 


69 


00 


20 


98 


20 


90 


Ob 


21 60 : 2F 


FO 


04 


E8 


88 


DO 


F6 


EO 


2020:A9 


OE 


4C 


09 


BE 


CD 


02 


21 


21 68:04 


FO 
» 


05 


A9 


OB 


4C 


OC 


BE 


2028:90 


F6 


AE 


08 


BE 


8D 


08 


BE 


21/0 :A2 


00 


C8 


Bl 


06 


9D 


82 


22 


caracteres semi-graphiques 


2030 :9E 


07 


21 


AE 


07 


BE 


8E 


06 


21 78:C8 


E8 


EO 


04 


DO 


F5 


CA 


BD 




2038:21 


AO 


00 


8C 


07 


BE 


48 


E9 


2180:82 


22 


CA 


DD 


82 


22 


DO 


12 


A litre d'illusiraiion de 


2040:21 


85 


3C 


69 


38 


E9 


04 


85 


2188 :8A 


7D 


82 


22 


49 


FF 


9D 


82 


Sexploitation des caracteres 


2048:74 


A9 


21 


85 


49 


84 


48 


AO 


2190:22 


E8 


8A 


7D 


82 


22 


9D 


82 


semi-graphiques du Minitel (voir 


2050:00 


Dl 


40 


FO 


27 


20 


8E 


F8 


2198:22 


CA 


EO 


00 


DO 


El 


AD 


6C 


page 10), voiei un modeste 


2058:A4 


2F 


CO 


02 


DO 


OF 


31 


48 


21A0:BE 


8D 


CC 


BE 


8D 


B5 


BE 


AD 


programme Basic qui fonctionne 


20C0:C9 


21 


90 


09 


CD 


02 


21 


BO 


21A8:6D 


BE 


3D 


CD 


BE 


3D 


B6 


BE 


sur tous les Apple // muni d'une 


2068:04 


65 


3C 


91 


48 


A5 


48 


38 


21B0:A5 


73 


3D 


CE 


BE 


8D 


DA 


BE 




20 70:65 


2F 


85 


48 


A5 


49 


69 


00 


21B8:A5 


74 


8D 


CF 


BE 


A9 


C4 


20 


cane serie en slot 2, configuree 


2078:85 


49 


DO 


D3 


AO 


00 


A9 


21 




at; 


bO 


64 


AD 


SQ 


BE 


C9 


ainsi : 1200 bauds, parit6 paire, 7 


2080:84 


3C 


85 


3D 


18 


6D 


04 


21 


21C9:0F 


FO 


SB 


C9 


FO 


FO 


57 


C9 


bits de donnees et 1 bit de stop. 


2088:84 


42 


88 


84 


3E 


85 


3F 


AD 


21D0:FF 


FO 


53 


A9 


CB 


20 


10 


BE 


Le cable de liaison decril dans les 


2090:08 


BE 


85 


43 


C8 


4C 


2C 


FB 


21D8:B0 


4E 


AD 


DO 


BE 


3D 


D6 


BE 


precedents numeros conviendra. 


2098:80 


FB 


20 


A5 


74 


18 


69 


04 


21E0:8D 


C7 


BE 


8D 


DE 


BE 


A9 


00 




20A0:8D 


FC 


20 


86 


3D 


CE 


FC 


20 


21E8:8D 


D7 


BE 


A9 


02 


8D 


D8 


BE 


Programme GR APH. VIDEOTEX 


20A8:F0 


47 


AD 


FC 


20 


8D 


FD 


20 


21F0-.A9 


Dl 


20 


70 


BE 


BO 


31 


AO 


10 PRINT CURS (4) m PRt2 m 


20B0:AD 


FD 


20 


48 


4A 


4A 


4A 


AA 


21F8:04 


B9 


C6 


BE 


99 


89 


22 


38 


20 PRINT CURS (12) CURS (141; 
30 nostiB 100 

40 PRINT CURS fS7) CHRS (90) i 


20B8:68 


29 


07 


A8 


B9 


F3 


20 


3D 


2200:DO 


F7 


A2 


04 


8E 


09 


BE 


A9 


20C0:58 


BF 


DO 


El 


A5 


3D 


DO 


09 


2208 :CF 


20 


70 


BE 


DO 


1A 


AO 


02 


50 (MSUB 100 


20C8-.39 


F3 


20 


ID 


58 


BF 


9D 


58 


2210:89 


C8 


BE 


99 


86 


22 


88 


10 


60 PRINT CHRS (15) 


20D0-.BF 


AD 


FC 


20 


38 


CE 


FD 


20 


2218 :F7 


A9 


CA 


20 


70 


BE 


90 


OB 


70 PRINT CHRS r<) "PRSO": HOMF. : FNO 
































100 FOR I - 32 TO 63: PRINT CHRS (I 


20D8:ED 


FD 


20 


CD 


FB 


20 


DO 


DO 


2220:09 


05 


DO 


04 


FO 


3E 


A9 


OD 


),-; NEXT ; FOR X - 92 TO 126; PR 


20E0-.A5 


3D 


DO 


07 


18 


AE 


FD 


20 


2228:40 


OC 


DE 


2E 


82 


22 


08 


6E 


INT CMHS (I):: NEXT : PRINT CH 


20E8:E8 


8A 


60 


A9 


00 


85 


3D 


FO 


2230:82 


22 


28 


A2 


03 


3E 


82 


22 


RS (13) CHRS (10) : RETURN 



56 



Pom's n° 29 



Serge Cattan 



Simplexe 



Le SIMPLEXE est un algorithme 
perrnettant la resolution des pro- 
blemes de programmation lineai- 
re, qui consiste h recherchcr 
1'optimum d'une fonction lineaire 
a plusieurs variables liees par des 
equations ou des inequations. 

Developpe en 1947 par Dantzig 
de l'US Air Force, cet algorithme 
est maintenant utilise largement 
par les economistes et techniciens 
pour resoudre les problemes les 
plus divers : affectation de 
personnel, preparation de 
melanges industriels, srockages, 
etc. 

Le programme SIMPLEXE 
reprend cet algorithme. Prenons 
l'exemple d'un patissier qui 
desire confectionner des souffles 
au chocolat, des quatre-quarts et 
des mousses au chocolat (fichier 
PATISSERIE de la disquette 
Pom's 29). II dispose de sucre et 
de chocolat en quantites limitees, 
ei chaque type de gateau est 
vendu k un prix different. 
Combien de gateaux de chaque 
type le patissier doit-il 
confectionner pour trouver un 
benefice maximum ? 



n'y a qu'un seul kilo de chocolat 
disponible. 

Soient xi, x2 et x3 les variables 
representant le nombre de 
souffles, quatre- quarts et 
mousses. Nous avons done les 
CONTRAJNTES I 

40 xi + 20 x2 + 50 x3 <= 2000 
10 xi + 28 X2 + 40 X3 <= 1000 

Ces contraintes sont du type 
"infericur ou egal". II peut 
egalement exister des contraintes 
de type "superieur ou egal" ou 
simplement "egal". 

Le b^ndfice de notre patissier est 
respectivement de 20, 20 et 40 
centimes par type de produit. 
D'ou la FONCTION 
ECONOMIQUE : 

20 xi +20x2 + 40 x3 

Ccttc fonction doit ici etre 
maximisee ; pour d'autres exem- 
ples, elle pourrait etre minimis6e 
(si elle representait un cout de 
fabrication). 

Le programme SIMPLEXE 
permet d'editer toutes ces 
donnees numeriques et calcule le 
nombre de gateaux a confec- 
tionner, compte tenu des 
contraintes, pour obtenir le plus 
grand benefice. Ici, il faudrait 
produire 27 souffles et 18 
mousses (tant pis pour les 
amateurs de quatre-quarts !). 



Les donnees peuvent etre 
sauvegarddes sur disque pour etre 
modifies plus tard. Les resultats 
peuvent egalement eire sorties sur 
line imprimante Epson RX80 
(^adaptation k d'autres impri- 
mantes ne pose aucun probleme). 
Le programme, s'il donne entiere 
satisfaction pour la resolution des 
problemes pos£s, est cependnnt 
volontaircmcnt limite k l'ossature 
afin d'alleger sa lecture, et ne 
comprend done pas les multiples 
routines de gestion s des erreurs 
possibles de saisie. A vous de le 
completer suivant vos gouts. 



Fichier 

'PA TISSERIE' 

3 
2 


2 
€ 
40 
20 
50 

2000 
10 
28 
20 

1000 
-20 
-20 
-40 
2 




DOS 3.3 



II faut 40 grammes de sucre par 
souffle, 20 grammes par 
quatre-quarts et 50 grammes par 
mousse. Notre patissier ne 
dispose que de 2 kilos de sucre. 

Pour le chocolat, les valeurs 
respectives sont 10, 28 et 40 ; il 



Programme 'SIMPLEXE' 

Afin de faciliter la saisie, les espaces situes 
dans des chatnes de caracteres ont ete 
remplaces par des puces ('•). 

100 REM ******************************* 
****************** *********** 

110 : 

120 RF.M CATTAN Serge ALGORT 
THME DU SIMPLEXE 09/85 

130 • 

140 REM ******************************** 



**^* ******* ****************** 

150 REM ONERR GOTO 3470 

160 T$ - *' 



170 DS = CHR$ (4) 
1 80 HOME 

190 INVERSE : PRINT SPC( 40) 

200 PRINT " ALGORITHME 'DU -SIM 

PLEXE '/ 

210 PRINT SPC( 40) 

220 NORMAL 

230 POKE 34,4: VTAB 8 
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240 

250 

260 

270 

280 

290 

300 
310 
320 
330 
340 
MO 

360 

370 

380 

390 

400 
410 

420 

430 
440 

450 

460 
470 

480 

490 
500 



PRINT "ANALYSE 'D' UN -PROBLEME - 

->*1" 

FRINT "REPRISE 'ANALYSE 'EXISTANTE " '- 

->*2" 

PR INT "MODIFICA TIONS 9 DES • DQNNEES »■• :*- 
->*3" 

PRINT "MODE'D'EMPLOI • - 

-> ■ 4 " 

PRINT "RETOUR*AU* BASIC - 

->*5" 

POKE 36,7 7: VTAR 18: INPUT "VOTRE'CH 
OIX*?*";R$:R = VAL (R$) 
ON R GOTO 34 0,320, 4240,3490, 330 
GOTO 290 

GOSUB 2540: GOTO 990 
POKE 34,0; END 

HOME 

VTAB 23: INPUT "NOM*DE*L 'ANALYSE * ( *? 

• FOUR 9 LE 9 CATALOGUE 9 } 9 ? 9 ";NE$ 
IF LEN (NE$) < 1 OR NE$ - "?" THEN 
PRINT D$r "CATALOG" : GOTO 350 
print : input "nombre * d ' inconnues * ?* 

"jV$ 

n = val (n$) : if n = then print " 
*un-chiffre*>*0*s.v.p. ": goto 370 
print : input "nombre •de* contra 1 nt es 

*DU»TYPE*<***?*";T1$: PRINT 
IF LEN (Tl$) = THEN Tl$ = "•" 
Tl = VAL (Tl$) : IF ASC (Tl$) < 48 
R ASC (Tl$) > 5 7 THEN PRINT "'UN*CH 
IFFRE'S.V.P.": GOTO 390 
PRINT : INPUT "NOMBRE -DE' CONTRA INT ES 

9 DU'TYPE 9 >= 9 ? 9 ";T2$: PRINT 
IF LEN (T2$) - THEN T2$ = "*" 
T2 = VAL (T2$) : IF ASC (T2$) < 48 O 
R ASC (T2$) > 5 7 THEN PRINT " 9 UN 9 CH 

IFFRE'S.V.P. " : GOTO 420 
PRINT : INPUT "NOMBRE' DE' CONTRA INTES 
9 DU*TYPE'='?'";T3$; PRINT 
IF LEN (T3$) = THEN T3$ = 
T3 = VAL (T3$) : IF ASC (T3$) < 48 
R ASC (T3$) > 57 THEN PRINT "'UN'CH 
IFFRE'S.V.P.": GOTO 450 
Dl = Tl + T2 + T3-.D2 = N + Dl + T2 + 
1 

GOSUB 510: GOTO 540 

REM ======== DIM TABLEAU ======== 



510 IF ME - 1 THEN RETURN 

520 DIM PG {D1,D2) , BA(D1) ,EC (2 ,D2) ,A (Dl) , 

Al (Dl) 
530 ME = 1: RETURN 

540 REM =====—-======================== 

REM SAISIE =================== 

HOME 



550 
560 
570 
580 
590 
600 

610 

620 



IF Tl = THEN 670 
FOR K = 1 TO Tl 
PRINT K; 

IF X = 1 THEN PRINT " I ERE 'CONTRA I NT 
E'DU'TYPE'<=' :": PRINT : GOTO 620 

PRINT " IEfiiE ' CONTRAINTE 'DU • TYPE • - .• " 
; PRINT 

FOR J = TO N - 1 



630 PRINT "COEFFICIENT 'DE' X" ; J + If: INF 

UT ».=. ? . ";B$:B = VAL (B$) ;PG(K - 1, 
J) = B 
640 NFXT J 

650 INPUT "VALEUR* DU* SECOND m MEMBRE 9 = 9 I 9 " 
;B$:B = VAL (B?):PG(K - 1,D2) = B: P 
RINT 

660 NEXT K 

670 IF T2 = THEN 780 
680 LI = Tl + 1:L2 - T2 + Tl 
690 FOR K = r.7 TO T<2 
700 PRINT K - LI + 1/ 

710 IF K - LI + 1 = 1 THEN PRINT "I ERE* 
CONTRAINTE 'DU* TYPE *>=*:" .* PRINT : GOT 
730 

720 PRINT "IEME 9 CONTRAINTE 'DU' TYPE '>=' : " 

: PRINT 
130 tor J = TO N - 1 

740 PRINT "COEFFICIENT'DE'X";J + 1 ; : INP 
UT "* = *?";B$:B = VAL (B$):PG(K - 1 , J 

) = B 
750 NEXT J 

760 INPUT "VALEUR*DU* SECOND *MEMERE •=•?•" 
;B$:B = VAL (B$):PG(K - 1,D2) = 3: P 
RINT 

770 NEXT K 

780 IF T3 = WEN 890 

790 LI = Tl + T2 + 1:L2 = Tl + T2 + T3 

800 FOR K = LI TO L2 

810 PRINT K - LI + 1; 

820 IF K - LI +1=1 THEN PRINT "IERE* 
CONTRAINTE'DU'TYPE ' = '."" PRINT : GOT 

840 

830 FRINT " IEME - CONTRAINTE -DU* TYPE'-* ; • " 

: PRINT 
840 FOR J = TO N - 1 

950 PRINT "COEFFICIENT*DE*X"/J + 2/: INP 
UT "* = *?*";B$:B = VAL (B$) :PG(K - 1, 
J) - B 

860 NEXT J 

870 INPUT " VALEUR'DU* SECOND 'MEMBRE •=*?'" 
;B$:B = VAL (B$):PG(K - 1,D2) = B: P 
HINT 

980 NEXT K 

890 Al = N + Tl - 1:A2 = Al + T2 :A3 = A2 

+ T2:A4 - A3 + T3 
900 PRINT "FONCTION • ECONOMI QUE • f • " t PRIN 

T 

910 FOR J - 1 TO N 

920 PRINT "COEFFICIENT *DZ*X" ;J; : INPUT " 

*^"";B$:CX - VAL <B$) 
930 F.C(1,J - 7 J = -CX 
940 NEXT J 

950 PRINT : PRINT "TAPER* 1 *POUR *UNE *MINI 
MISATION" : HTAB It PRINT "2*P0UR*UNE* 
biAXIMISATION" : FRINT ; HTAD 7; INPUT 
MO$ 

960 MO = VAL (MO$) 

970 IF MO < > 1 AND MO < > 2 THEN PRI 
NT : FLASH : PRINT " 1 »OU* 2 *S . V. P . " : N 
ORMAL : PRINT : GOTO 950 

980 IF R < > 2 THEN GOSUB 2180 

990 32 = IE - 5 
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1000 IF MO = 2 THEN MO = - 2 

1010 PRINT t FLASH : PRTNT "CALCUT.^FN'CO 

URS NORMAL 

1020 REM ========================== 

1030 REM IN1T VARIABLES AUX1LIAIRES 

1040 REM —————————— 

1050 IF Tl = THEN 1090 

1060 FOR J — 1 TO Tl 

1070 PG(J - l f N + J - 1) m 1;BA(J - 1) = 

N + J - 1 

1080 NEXT J 

1090 IF T2 = THEN 1130 

1100 FOR J - 2 TO T2 

1110 PG(J + Tl - 1,A1 + J) = - 1:PG(J * 

Tl - 1,A2 + J) = 1:DA(J + Tl - 1) - 

A2 + J 

1120 NEXT J 

1130 IF T3 = THEN 1170 

1140 FOR J = 1 TO T3 

1150 PG(J + Tl + T2 - 1,A3 + J) = 1:BA(J 

+ Tl + T2 - 1) * A3 + J 

1160 NEXT J 

1170 IF T2 + T3 = THEN 1440 

1180 FOR J - TO N + Tl + T2 - 1 

1190 S = 

1200 FOR I = Tl TO Dl 

1210 S = S + PC(I,J) 

1220 NEXT I 

1230 EC(0, J) = S 

1240 NEXT J 

1250 EC(0, D2) = 

1260 FOR I m Tl TO Dl 

12 70 EC(0 t D2) = EC(0,D2) + PG(I,D2) 

1280 NEXT I 

1290 EX = 0:CO ■ 2 

2.300 GOSUB 1 790 

1310 IF RE = 2 THEN 1660 

1320 IF EC(0,D2) > ZZ THEN 1670 

1330 V = 

1340 FOR C = TO Dl 

1350 IF BA(C) > A2 THEN V - 2 

1360 NEXT C 

1370 IF V = 1 THEN 1680 

1380 FOR J = A2 + 1 TO A4 

1390 FOR 1=0 TO Dl 

1400 PG(I,J) = 

1410 NEXT I 

1420 EC(0,J) - 0:EC(1,J) - 

1430 NEXT J 

1440 EX = 1 ; CO — MO: GOSUB 1790 

1450 IF RE = 2 THEN 1610 

1460 HTAB 15: PRINT •'**********-"; PRINT 

1470 REM =========================== 

1480 REM At'FlCtiAGE PROGRAMME OPTIMAL 

1490 REM ——========= 

1500 GOSUB 2110: REM ON I MP RIME ? 

1510 HONS : PRINT 

1520 PRTNT " BASE • DE • DONNEES •? * " ; NE$ 

1530 PRINT "=================•' ; print 

1540 PRINT " SOLUTION* OPT IMALE* POUR ■ : " : P 
HINT 

1550 FOR I = 1 TO N 

1560 FOR J = TO Dl 



1570 IF BA(J) =1-1 THEN PRINT "X"/I; 

"• = *";PG(J,D2) :A(I - 1) = PG(J,D2) : 

GOTO 1600 
1590 NEXT J 
1590 PRINT "X";I;"» = *0" 
1600 NEXT I 

1610 PRINT : HTAB 15: PRINT ************ 

*»» 

1620 PRTNT : PRTNT CHR$ (15): GOSUB 303 

0: REM AFFICHAGE EQUATIONS 
1630 PRINT CHR$ (1Q) : REM RETOUR 80 C 

OLONNES 

1640 GOSUB 2160: POKE 34,0: PRINT D$/"PR 

#0"; PRINT : RUN 
1650 REM 

1660 GOSUB 2110: HOME : PRINT "CE'PROBLE 

ME*N 'A 'PAS 'DE -SOLUTION' OPTIt-lALE" ; PR 

INT : GOTO 1610 
1670 GOSUB 2110: HOME : PRINT "CE'PROBLE 

ME'N'A • PAS 'DE* SOLUTION* DU» TOUT" : PRI 

NT : GOTO 1610 
1680 FOR JJ = TO A4 
1690 IF EC(0,JJ) > ZZ THEN 1740 
1700 FOR I - TO Dl 
1710 PG(T,JJ) = 
1720 NEXT I 

1730 EC(0,JJ) = 0;EC(1,JJ) m 
2 740 NEXT J J 
1750 GOTO 1440 

1760 REM ========================== 

1770 REM ALGORITHME DU SIMPLEXE 

1780 REM ============================= 

2 790 MA = ZZ 

1800 FOR J — TO D2 - 1 

1810 IF MA < EC (EX, J) * CO THEN MA = EC( 

EX, J) * C0:J1 = J 
1820 NEXT J 

1830 IF MA — ZZ THEN RE - 1 : RETURN 

1840 MI = 1E20 

1850 FOR I = TO Dl 

1860 A - PG(I,J1) 

1870 IF A < ZZ THEN 1900 

1880 R = PG(I,D2) / A 

1890 IF R < MI THEN MI = R:I1 = I 

1900 NEXT I 

1910 IF MT - 1E20 THEN RE = 2: RETURN 

1920 BA(I1) = J1:PI = PG(I1,J1) 

1930 FOR J = TO D2 

1940 PG(I1,J) = PG[11,J) / PI 

1950 NEXT J 

I960 FOR I m TO Dl 

1970 IF II = I THEN 2020 

19Q0 Bl = PG(I,J1) 

1990 FOR J = TO D2 

2000 PG(I,J) - PG(I,J) - Bl * PG(I1,J) 
2010 NEXT J 
2020 NEXT I 

2030 Bl = EC(EX,J1) :B2 = EC (EX + 1,J1) 
2040 FOR J = TO D2 

2050 EC (EX, J) = EC (EX, J) - Bl * PG(T1,J) 
2060 EC(EX + 1,J) - EC(EX + 1,J) - B2 * P 

C(I1,J) 
2010 NEXT J 

v 
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2080 
2090 
2100 
2110 
2120 

2130 

2140 
2150 
2160 



2170 
2180 
2190 
2200 
2210 
2220 
2230 

22 AO 
2250 
22 SO 
22 70 
22 80 
2230 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
24 40 
2450 
24 60 

24 70 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 

25 70 
2580 



GOTO 1790 

REM IMPRESSSION RESULTAT ? 

PRINT : INPUT "VOULEZ-VOVS • IMPRIMER 
• CES • RESULT ATS •?"; R$ 
IF LEFT$ (R$,l) = "0" THEN IM = 1 : 
PRINT D$; "PRil " 
RETURN 

It' IM = THEN POKE 36,0: VTAB 23: 
PRINT "APPUYEZ *SUR • UNE • TOUCHE 'POUR - 
LA' SUITE. ": GET C$ 

RETURN 

REM SAUVE GARDE SUR DISQVE 
PRINT 

PRINT D$;"0PEN"/NE$ 
PRINT D$; "WRITE" ;NE$ 
PRINT N: PRINT Tl : PRINT T2: PRINT 
T3 

PRINT Dl : PR7NT D2 
IF Tl = THEN 2320 
FOR K = 1 TO Tl 
FOR J = TO N - 1 
PRINT PG(K - 1,J) 
NEXT J 

PRINT PG(K 1,D2) 
NEXT K 

IF T2 = THEN 2400 
LI = Tl + 1:L2 = T2 + Tl 
FOR K = LI TO L2 
FOR J = TO N - 1 
PRINT PG(K - 1,J) 
NEXT a 

PRINT PG(K - 1,D2) 
NEXT K 

IF T3 = THEN 2480 
LI = Tl + T2 + 1:L2 = Tl + T2 + T3* 
FOR K = LI TO L2 
FOR J = TO N - 1 
PRINT PG(K - 1, J) 
NEXT J 

PRINT PG(K - 1,D2) 
NEXT K 

FOR J = 1 TO N 
PRINT EC(1,J - 1) 
NEXT J 
PRINT MO 

PRINT D$; "CLOSE" 

RETURN 

REM LECTURE ENREGIS TREMENT 
REM ====================== 

VTAB 23: INPUT "NOM'DE'L ' ANALYSE' (' 

?* POUR -LE- CATALOGUE') '?'";NE$ 

IF LEN (NE$j < 1 OR NE$ - "?" THEN 

PRTNT D$ ; "CATALOG" : GOTO 2560 
HOME : INVERSE : POKE 36,8: VTAB 23 



: PRINT "ANAL YSE * FICHIER ■ 
ORMAL 
2590 PRINT 

2600 PRINT D$; "0PEN"r'NE$ 
2610 PRINT D$; "READ" ? NE$ 



";NE$: N 



2620 
2630 

2640 
2650 

2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
28 40 
2850 
2860 

28 70 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 

29 60 

29 70 

2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 

30 60 

30 70 

3080 
3090 
3100 

3110 
3120 
3130 
3140 

3150 
3160 

31 70 



INPUT N: INPUT Tl : INPUT T2 : INPUT 
T3 

INPUT Dlt INPUT D2 
GOSUB 510 

Al = N + Tl - 1:A2 - Al + T2:A3 = A2 
+ T2:A4 = A3 + T3 
IF Tl - THEN 2730 
FOR K = 7 TO Tl 
FOR J = TO N - 2 
INPUT PG(K - I, &) 
NEXT J 

INPUT PG(K - 1,D2) 
NEXT K 

IF T2 = THEN 2810 
LI = Tl + 1 :L2 = T2 + Tl 
FOR K = LI TO L2 
FOR J = TO N - 1 
INPUT PG(K - 1,J) 
NEXT J 

INPUT PGfK - 1,D2) 
NEXT K 

IF T3 m THEN 2890 
LI = Tl + T2 + 1:L2 = Tl + T2 + T3 
FOR* K = LI TO L2 
FOR J = TO N - 1 
INPUT PG(K - 1,J) 
NEXT J 

INPUT PG(K - 1,D2) 
NEXT K 

FOR J = 1 TO N 
INPUT EC(l t J - 1) 
NEXT J 
INPUT MO 

PRINT D$; "CLOSE" 
RETURN 

REM TRAITEMENT ERREUR======= ======= 

REM =========================== 

IF PEEK (222) = 5 THEN VTAB 10: P 
HINT "FICHIER • INEXIS'TANT" : GOTO 2990 
PRINT "ERREUR" 

FOR IT = 1 TO 1000: NEXT 
POKE 34,0: GOTO 180 
RETURN 

REM ================= 

REM LISTE DES DONNEES 
REM ================= 

COSUB 2600: REM RECUP INFOS FICHIE 

R 

PRINT "EQUATIONS 'DU 'TYPE : " 
PRINT " 



PR IN 
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FOR K = 1 TO Tl 

FOR J = TO N - 1 

PRINT PGfK 1, J) f "'X"/ J v- 1/r IF J 
< N - 1 THEN PRINT ". + •"; 

Al (K) - PGfK - l r J) * A(J) + A1(K) 
NEXT J 

PRINT "•<»";PG(K - 1,D2) 
PRINT "VALEUR • CALCULEE ■ : ";A1 (K) : PR 
INT 
NEXT K 

IF T2 = THEN 3280 
LI = Tl + 1:L2 - T2 + Tl 
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3180 PRINT " EQUATIONS 'DU' TYPE '>* : " 

3190 PRINT " ".• PR1N 

T 

3200 FOR K = LI TO L2 
3210 FOR J = TO N - 1 

3220 PRINT PG(K - 1,J) ;"'x";J + 1; : IF J 

< N - 1 THEN PRINT "•+■"/ 

3230 A1(K) = PG(K - 1,J) * A{J) + Al(K) 
3240 NEXT J 

3250 PRINT "•>• ";PG(K - 1,D2) 

3260 PRINT "VALEUR ■ CALCULEE • ; ";A1 (K) : Pfi 
INT 

3270 NEXT K 

3280 IF T3 = THEN 3400 

3290 Ll = Tl + T2 + 1:L2 = Tl + T2 + 13 

3300 PRINT " EQUATIONS 'DU' TYPE ;" 

331 PRINT " "; PRIM 

T 

3320 FOR K = LI TO L2 
3330 FOR J = TO N - 1 

3340 PRINT PG(K - l,J);"*x";J + 1/; IF J 

< N - 1 THEN PRINT '*•+•"; 

3350 A1(K) = PG(K - 1,J) * A(J) + Al (K) 
3360 NEXT J 

33/0 PRINT n PGfK - 1,D2) 

3300 PRINT "VALEUR • CALCULEE- : "/Al (K) : PR 

INT 

3390 NEXT K 

3400 PRINT : PRINT "FONCT TON • F.CONOMTQUF.' 

*' r 

3410 IF MO = 1 THEN PRINT "POUR'UNE 'MIN 

IMISATION.": GOTO 3430 
3420 PRINT "POUR'UNE' MAXIMISATION. " 
3430 PRINT »============================ 

=============» f p£ijvx 

3440 FOR J = 1 TO H 

34b0 PRINT ECU, J - 1} ; "*x";J; " ■ "; 

3 4 60 NEXT J 

3410 PRINT : PRINT "VALEUR -DE 'LA 'FONCT 10 

N'ECONOMIQUE'^' ";EC(1,D2) 
3480 RETURN 

3490 REM MODE D'EMPLOI ========== 

3500 REM ======================== 

3d 10 HOME ; PRINT ; PRINT : SPEED= 14U 

3520 PRINT "L'ALGORITHME'DU'SIMPLEXE'A'E 
TE" 

3530 PRINT "DEVELOP PE' PAR • G. B. 'DANTZIG'E 
N'T 947. " 

3540 PRINT "IL'S'AGIT'D'UN'OUTIL'DE'CALC 
UL*TRES" 

3550 PRINT "UTILISE* D'ABORD 'PAROLES 'Mthl 
TAIRES, " 

3560 PRINT "PUIS'PAR'LES'ECONOMISTES'ET' 

LES" 

3570 PRINT "INDUSTRIELS." .* PRINT 

3580 PRINT "LES ' APPLICATIONS 'SONT'NOMBRE 

USES:": PRINT 
3590 PRINT " -PREPARAT1 ON'VE 'MELANGES ' I ND 

USTRIELS, " 

3600 PRINT " -AFFECT A TION • DE • PERSONNEL, " 

3610 PRINT " -PLAN 'DE 'PRODUCTION, 
3620 PRINT " - INVEST I SSEMENTS *ETC. " 
3630 PRINT 



3640 
3650 

3660 

3€~: 
:•€=: 

3700 PWtlM 



PRINT "POUR - SITUER • LE - PROBLEME, NOUS 
•PRENDRONS" 
PRINT "L ' EXEMPLE 'D'UN'PA TISS IER - Q UI 
'DESIRE 

PRINT "CONFECTIONNER ' DES ' SOUFFLES 'A 
U'CRQCOTAT, " 

PRINT "DES * QUATRE - Q UAR TS, ET ■ DES 'MOU 
SSZS»AV m 
PRINT "C3QCCLAT . " 

t : : :~ - zzu, :z-z :s= :je-de'SUcr 

r-rr-rr- 

zs, His 

'A . _ 



3'3: 



??isr -rr-.-zc3, zz 




3~~C PRINT "COMBIEN'DE - GA?I^UT»BK-€ 
'TYPE" 

3780 PRINT "LE • PA TISS IER 'DOIT -PREPARER -r 

T'VENDRE" 

3190 PRINT '•FOUR'EN'TIRER'UN'PROFIT'KAXI 
MAL •?" 

3S0O PRINT "LES 'MATIERES 'PREMIERES 'SE'RE 

PAR TISSENT " 
3S1C PRINT "AINSI*:": PRINT 
3820 PRINT "POUR' LE 'SUCRE* ; " 
3830 PRINT "40*GR. • POUR' LES 'QUATRE-QUART 

3940 PRINT "2 0»GR. 'POUR' LES 'SOUFFLES r " 
3850 PKINT "50»GR. * POUR 'EES 'MOUSSES . " 
3B60 PRINT : PRINT t PRINT "POUR « LE * CHOC 
OLAT* : " 

3870 PRINT "10-GR. 'POUR' LES 'QUATRE -QUART 
"* 

3880 PRINT "28"GR. 'POUR'LES'SOUFFLETS, 
389C PRINT "20-GR. 'POUR' LES 'MOUSSES . " 
3900 PRINT ; PRINT "LE 'POIDS 'DE •SUCRE* DI 
SPONIBLE'EST'2000 'GR . " 

3910 PRINT "LE'POIDS'DE'CHOCOLAT'EST'100 
O'GR. " 

3920 PRINT : PRINT "LES' INCONNUES 'SONT'L 

ES' GATEAUX. " 
393 PRINT "LES 'EQUA TIONS • POUR • CF, * PROR IF 

ME'SERONT'r": PRINT 
3940 PRINT "40X1'+'20X2*+'50X3'<-*2000" 
3950 PRINT "10X1 '+'28X2'+' 40X3 '<=* 1000" 
3960 PRINT : PRINT "LES 'EQUATIONS -QUI 'SO 

NT'TCI'DES" 
3970 PRINT " INEGALITES 'SONT 'APPELEES -CON 

TRAINTES . " 

398 PRINT "ELLES'PEUVENT'ETRE 'DE"3' TYPE 
S': ": PRINT 

3990 PRINT " • -INFERIEUR • OU "EGAL •(<=), " 

4000 PRINT " '-SUPERIEUR'OU' EGAL '{>=), " 
4010 PRINT " ' -EGAL (=) . " 

4020 PRINT : PRINT "LES'VALZURS'SITUEES- 
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A'DROITE'DE" 
4030 PRINT "L 'EQUATION'S 'APPELLENT'SECON 
D'MEMBRE. " 

4040 PRINT : PRINT "D 'AUTRE 'PART, LE' BENE 

FICE'POUR 'NOTRE " 
4050 PRINT "PATISSIER'SERA'DE' :" 
4060 PRINT : PRINT "20 m CT$ m PAR*QVATRE-QU 

ART, " 

4070 PRINT "20'CTS'PAR'SQUFFLE, " 

4080 PRINT "40'CTS'PAR'MOUSSE. " 

4090 PRINT : PRINT "L ' EQUATION 'CORRES PON 

DANTE* SERA: ": PRINT 
4100 PRINT "BENEFICE* — 20*+'20 *i '40" 
4110 PRINT : PRINT "CETTE ' EQUATION 'SE' NO 

MME ' FONCTION " 
4120 PRINT "ECONOMIQUE. " 

4130 PRINT " LA 'FONCTION* ECONOMIQUE 'PEUT 9 
ETRE" 

4140 PRINT "MAXIMISEE t C r EST'LE'CA$'D 'UN- 
BENEFICE" 

4150 PRINT "COMME^DANS'NOTRE'EXEMPLE, 'OU 

•MIN1M1SEE" 
4160 PRINT "LORSQU'IL'S'AGIRA'D'UN'COUT* 

PAR'EXEMPLE. " 

4170 PRINT ; PRINT : PRINT "CE * PROGRAMME 
•A'ETE' INSPIRE 'PAR 'L 'AR TICLE " ; 

4180 PRINT "DE ■ DANIEL • FERRQ ' PAR U • PANS - LA 
- REVUE" 

4190 SPEED= 255 

4200 PRINT "SCIENCE • ET • VIE . " 

4210 PRINT : PRINT "APPVYEZ 'SUR'UNE'TOUC 
HE 'POUR -RETOUR'AU" -MENU."; GET R$ 

4220 HOME t GOTO 2.10 

4230 REM =============== 

42 4 REM MODIFICATIONS 

4250 REM =============== 

4260 HOME : GOSUB 2540 

4270 IF Tl = THEN 4370 

4280 FOR K = 1 TO Tl 
4290 PRINT : PRINT K; 

4300 IF K = 1 THEN PRINT " I ERE • CONTRA IN 
TE'DU'TYPE-<=*;": PRINT : GOTO 4320 

4310 PRINT "IEME • CONTRAINTE ' DU • TYPE '<=' : 
": PRINT 

4320 FOR J m TO N - 1 

4330 PRINT "COEFFICIENT' UE' X" ; J + 1;"'=' 
";: INVERSE : PRINT PG(K - 1,J);: NO 
RMAL : INPUT "'";B$:B = VAL (B$) S I 
F LEN (B$) > THEN PG (K - 1,J) - B 

4340 NEXT J 

4350 PRINT " V ALEUR'DU' SECOND' MEMBRE' = '"; 

: INVERSE : PRINT PG (K - 1,D2);: NOR 

MAL : INPUT "'";B$;B = VAL (B$) : IF 
LEN (B$) > THEN PG(K - 1,D2) - B 
4360 NEXT K 

4370 IF T2 — THEN 4480 

4380 LI = Tl + 1:L2 = T2 + Tl 

4390 FOR K = LI TO L2 

4400 PRINT : PRINT K - LI + 1; 

4410 IF K - LI + 1 = 2 THEN PRINT "I ERE 

' CONTRA INTE'DU' TYPE' >=' : ": PRINT ; G 

OTO 4430 

4420 PRINT "IEME 'CONTRAINTE 'DU * TYPE'>= ' : 



PRINT 

4430 FOR J = TO N - 1 

4440 PRINT "COEFFICIENT'DE'X" ;J + 1;"'=' 
";: INVERSE ; PRINT PG (K - 1, J)/ S NO 
RMAL : INPUT "'";B$:B = VAL (B$): I 
F LEN (B$) > THEN PG (K - 1,J) = B 

4450 NEXT J 

4460 PRINT " VALEUR'DU' SECOND 'MEMBRE '='"; 
: INVERSE : PRINT PG(K - 1,D2);: NOR 
MAL : INPUT "'";B$:B = VAL (B$) ; IF 
LEN (B$) > THEN PG (K - 1,D2) = B 

4410 NEXT K 

44 80 IF T3 - THEN 4590 

4490 LI = Tl + T2 +' 1:L2 = Tl + T2 + T3 

4500 FOR K = LI TO L2 

4510 PRINT : PRINT K - LI + 1/ 

4520 IF K - LI + 1 = 1 THEN PRINT " I ERE 

'CONTRAINTE 'DU • TYPE •=*;*": PRINT : G 

OTO 4540 

4530 PRINT " IEME • CONTRAINTE 'DU m TYPE' =* : • 

"; PRINT 
4540 FOR J = TO N - 1 

4550 PRINT "COEFFICIENT ' DE*X" ;J + 1;"'=' 
";; INVERSE : PRINT PG(K - 1,J);: NO 
RMAL : INPUT "'"/B$:B = VAL (B$): I 

F LEN (B$) > THEN PG(K - 1,J) = B 
4560 NEXT J 

4570 PRINT "VAT.FUR ' DU' SECOND ' MEM3RE ' =' "; 
: INVERSE : PRINT PG(K - 1,D2);: NOR 
MAL : INPUT "'";B$:B = VAL (B$) : IF 
LEN <B$) > THEN PG(K - l f D2) = B 
4590 NEXT K 

4590 Al = N + Tl ~ 1:A2 = Al + T2 : A3 = A2 

+ T2:A4 = A3 + T3 
4600 PRINT : PRINT "FONCTION 'ECONOMIQUE' 

:'": PRINT 
4610 FOR J - 1 TO N 

4620 PRINT "COEFFICIENT-'DE'X" ,-J; " • = • *J i 
INVERSE : PRINT - EC(1,J - 1) ; : NOR 
MAL : INPUT """;B$:B = VAL (B$): I 
F LEN (B$) > THEN EC(1,J - 1) = 
B 

4630 NEXT J 

4640 PRINT : PRINT " TAPER' 1 'POUR* UNE'MIN 
IMISATION" : HTAB 7: PRINT "2'POUR'UN 
E • MAXIMISATION " ; PRINT : HTAB 7 

4650 IF MO < > 1 THEN MO = 2 

4660 PRINT "VALEUR 'ACTUELLE • = * " ; ; INVERS 
E ; PRINT MO/; NORMAL : INPUT "'";MO 
$ 

4670 IF LEN (M0$ ) > THEN MO = VAL (M 
0$) 

4680 IF MO < > 1 AND MO < > 2 THEN PR 

INT : FLASH : PRINT "l'OU* 2-S .V '. P . " : 
NORMAL : PRTNT : GOTO 4640 
4690 IF MO ~ 2 THEN MO = - 1 
4700 PRINT : INPUT "VOULEZ-VOUS 'D 'AUTRE S 

'MODIFICATIONS ' ? ";R$ 

4710 IF LEFT$ (R$,l) - "O" THEN HOME ; 

GOTO 4270 
4720 GOSUB 2180 
4730 POKE 34,0: RUN 
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AppleWriter & /RAM 

Christian Piard 



AppleWriter ProDOS utilise les 
6ventuels 64Ko de votre carte 80 
colonnes pour permettre le travail 
sur des textes plus importants : la 
memoire disponihle passe, avec 
la carte 80 colonnes ctendue, de 
22269 caract£res k 46845 soit un 
gain de 24Ko seulement. 

Source AW2 

Assembleur ProCODE 

* Source AW 2 



Dans certains cas, il peut 6tre 
interessant de renoncer & cette 
extension, afin de recuperer le 
disque virtuel 64Ko que ProDOS 
installe dans cette 80 colonnes. 11 
est possible, par exemple, d'y 
installer les fichiers de travail 
WPL et ceux auxquels il est 



ProDOS 



MESSAGE 



MOD IF 



NORMAL 



MESS 





<r y f)t\ i) 4-& v 

•ft UU \JTH 1 J 




LDA 


$BF98 


charge MACHID 


AND 


#%0001QOOO ; 


a-t-on 128Ko ? 


BEQ 


NORMAL ; 


non, on ne tait rien 


JSR 


$FC58 


efface ecran 


LDY 


#0 


affiche message 


LDA 


MESS, r 




BEQ 


MOD IF 




JSR 


$FDKD 




INT 






BNE 


MESSAGE 




R TT 


$com 




LDA 


$cooo 


attend une touche 


BPL 


MOD IF 




AND 


#%11011111 ; 


en fait une majuscule 


BIT 


$C010 




CMP 




si e'est N, on ne 


BEO 


NORMAL 


change rien 


CMP 


#"AT 


si ce n 'est pas M, on 


BNE 


MODIF 


boucle 


LDA 


$BF98 


charge MACHID 


AND 


#%111Q1111 ; 


force a le bit 5 


TAY 






RTS 




on revient 


LDY 


$BF98 




RTS 






DFB 


$8D, $8D 




ASC 


"Appl eWri ter 


n 


DFB 


$8D 




ASC 


tr 


n 


DFB 


$8D, $80, $8D 




ASC 


" <N>ormal 


: 46845 caracteres" 


DFB 


$8D, $8D 




ASC 


" <M>odifi6 


: 22269 caracteres" 


DFB 


$8D 




ASC 


It 


* 60928 en disque vir 


DFB 









frequemment fait appel : les 
temps de traitement s'en 
irouveront consid6rablement 
reduits. 

Le principe 

Lors du 'boot', ProDOS effectue 
des tests concernant la 
configuration materielle utiiisde et 
note le r&ultat en $BF98, octet 
nommd MACHID. Voici le 
codage de cet octet : 

OOxxxOxx Apple II 

OlxxxOxx Apple 11+ 

1 0xxxOxx App le //e 

I IxxxOxx Apple /// en ^mutation 
Wxxxlxx Apple //c 
xxOlxxxx 48Ko 

xxlOxxxx 64Ko 

xx11xxxx 128Ko 

xxxxxxOx pas de 80 colonnes 

xxxxxxlx 80 colonnes 

xxxxxxxO pas d'horloge 

xxxxxxx 1 hurlvge compatible 

Par exemple, sur un Apple //e, 
avec une carte 80 colonnes 
€iendue, sans horloge, on 
trouvera $B2 et sur un 64Ko : 
$A2. 

II suffira done de forcer a le bit 
5 pour indiqucr a AppleWriter 
que Ton ne dispose que de 64Ko, 
les 64 qui resient serviront au 
disque virtuel 

Le programme syst&me AW 
.SYSTEM, premier programme 
execute au lancement d'Apple- 
Writer, lance en fonction de 
MACHID : AWB.SYS,AWC 
.SYS ou AWD.SYS. C'est done 
AW .SYSTEM que nous 
modifierons. 

En pratique 

II convient de n'effectuer la 
modification que sur une copie de 
sauvegarde y sur laquelle au moms 
deux blocs seront disponibles. 
S'assurer en faisant le catalogue 
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que la longueur de AW.SYSTEM 
est bien de 473 octets, sinon cette 
modification ne convient pas. 

Suivre les Stapes suivantes : 

• Booter sur la disquette Master 
ProDOS 

• Mettrs la disquette AppleWriter 

• UNLOCKAW. SYSTEM 

• BLOADAW.SYSTEMM200Q, 
TSYS 

• Metire la disquette Pom's* 

• BLOADAW1.C 
■ BLOADAW2.C 

• Metire la disquette AppleWriter 

• BSAVEAW.SYSTEM,A$200Q, 
L$298,TSYS 

Maintenant, lors du d£marrage 

sur AppleWriter, un message 

apparait, vous invitant h. choisir 
entre AppleWriter 'normal* et 
AppleWriter 'modifid 1 . 

Le premier vous accorde 46845 
caract£res, le second 22269 
seulement mais 60928 dans le 
disque virtuel dont le pr^fixe est 
•/RAM'. 

Le message ne sera pas affiche" si 
vous n'avez pas de cane 80 



culonnes etendue. 

* ou, si vous ne I'avez pas, mettez la 
disquette sur laquelle vous aurez 
sauvegard£ les fichiers AW1.C et 
AW2.C listes cl-contre. 

a 



Source AW1 

Assemble ur ProCODE 

* On remplace 1 ' original 

* LDA $BF98 

* par un saut i notre 

* sous-programme 

OXG $200D 
JSR $20001473 



Recapitulation AW1.C 

Apres avoir saisi ce code sous 
moniteur, vous le sauvegarderez 
par : BSAVE ' AWLCAS200DJJ 

200D;20 D9 21 



Recapitulation AW2.C 

Apres avoir saisi ce code sous moniteur, 
vous le sauvegarderez par : 
BSAVE A W2.CAS2 ID91S6F 



21D9:AD 


99 


BF 


29 


10 


FO 


2C 




21EO-.20 


58 


FC 


AO 


00 


B9 


10 


22 


21E9:FO 


09 


20 


ED 


FD 


C8 


DO 


F5 


21F0:2C 


10 


CO 


AD 


00 


CO 


10 


FB 


21F8:29 


DF 


2C 


10 


CO 


C9 


CE 


FO 


2200: OB 


C9 


CD 


DO 


EE 


AD 


98 


BF 


2200:29 


EF 


AS 


60 


AC 


98 


BF 


60 


2210:80 


8D 


CI 


F0 


F0 


EC 


E5 


D7 


2210 :F2 


E9 


F4 


E5 


F2 


AE 


AE 


AE 


2220 :8D 


DF 


DF 


DF 


DF 


DF 


DF DF 


22 20 :DF 


DF 


DF 


DF 


DF 


DF 


DF 


80 


2230 :8D 


8D 


AO 


AO 


BC 


CE 


BE 


EF 


2238 :F2 


ED 


El 


EC 


r\0 


AO 


BA 


AO 


2240-.B4 


B6 


B8 


B4 


R5 


AO 


E.J 


F.l 


2248.F2 


El 


E3 


F4 


FD 


F2 


E5 


F3 


2250:8D 


8D 


AO 


AO 


BC 


CD 


BE 


EF 


2258 :E4 


E9 


E6 


E9 


FB 


AO 


BA 


AO 


2260:B2 


B2 


B2 


B6 


B9 


AO 


E3 


E7 


226B:F2 


El 


E3 


F4 


FD 


F2 


E5 


F3 


2270 :8D 


AO 


AO 


AO 


AO 


ad 


AO 


AO 


22 78: AO 


AO 


AO 


AO 


AO 


AB 


AO 


B6 


2280: BO 


B9 


B2 


B8 


AO 


E5 


EE 


AO 


2288-.E4 


E9 


P3 


n 


F5 


Eb 


AO 


F6 


22 90 :E9 


F2 


F4 


F5 


ES 


EC 


00 





Un programme WPL : 
Tabulations automatiques 

Bernard Bel 



Si vous disposez de nombreux 
programmes assembleur realises 
sous DOS 3.3, il peut etre 
necessaire d'utiliser les sources 
sous un autre environnement 
(ProDOS, Pascal 1.2, etc.). 

Les assembleurs classiques (Big 
Mac, Lisa) permettent de sauver 
les sources sous format tcxtc 
standard. Malheureusement, les 
tabulations soul converties en un 



seul espace, ce qui donne un 
r^sultat peu esthetique pour un 
traitement de texte et souvent 
incompatible avec des assem- 
bleurs qui nc suivent pas ce 
protocole : 

LDX #0 
LOOP LDA MSG,X 

JSR COUT ; $FDED 
FL1 DEX 

BPL LOOP 



au lieu de : 



LOOP 



FL1 



LDX 
LDA 
JSR 
DEX 
BPL 



#0 

MSG,X 
COUT 

LOOP 



SFDED 



II serait done fort utile de 
disposer d'une routine qui 
'allonge' le caractere espace pour 
creer une reelle tabulation. Le 
programme propose ici est ecrit 
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en WPL (Word Processing 
Language) disponible sur Apple 
Writer II (versions DOS 3.3 et 
ProDOS). 



Utilisation 

1) Chargez, sous Apple Writer, 
le source a conveitir ; 

2) Tapez CTRL-P puis DO 
WPL.TAB. C'est tout ! 

Si vous ne possedez pas la 
disquette Pom's, vous devrez 



saisir le programme, liste 
ci-dessous, puis le sauver sous le 
nom WPL.TAB. Attention: les 
lettres majuscules E,F,G,IJ.Z 
imprim6es ici doivent etre saisies 
comme des caract£res de 
controle, et le caractere S comme 
un cspacc. 

Une petite precision sur la 
programmation avec WPL : 
I'emploi du caract&re "<" au lieu 
du classique '7" pour delimiter les 
chaines de caract£res recherchees, 
permet de representer le 
retour-chariot par ">", et 



d'utiliser "" et V comme jokers 
(wildcards) de longueur 1 ou dc 
longueur quelconque. 

Cerre routine ne resoud pas tous 
les cas possibles de conversion 
(par exemple les double-espaces 
dans un commentaire ou une 
instruction ASC seront mal 
traduits) mats permet d'obtenir 
rapidemenc one Hste d'un source 
assemble-: — i ;t .t 
obtenuc habimelkaeat sar 
imprimanie. 




Programme 'WPLTAB' 

Attention: Rem placer les lettres E, F, G, I, J, Z 
par les caracteres de controle correspondants, 
et S par des espaces. 



pnd 

ppr 

ppr « Correction de tabulations par WPL » 

ppr < Bernard Sel > 

b 

boucle f/SS/S/a 

pgo boucle 
ppr 

f <S>o<a 

Ppr 

f/-S/-Z/a 

ppr Attendez... 
ppr 

f <»S<»F<a 
PPr 

f <»S<»F<a 
ppr 

f <»S<»F<a 

ppr 

f<»S<»F<a 

ppr 

f <»S<»F<a 
ppr 

f/S/J/a 

ppr Travail en cours 

f <»J<>>S5S5<a 

ppr 

f <>>J<»SSSSS<a 

ppr 

f <>>J<»SSSSSS<* 
ppr 

f<»J<»SSSSSSS<a 
ppr 

f <>JJ<>ISSSSS<a 
ppr 

f <>J<>SS<a 
ppr 

fc>j<>555<a 



ppr 

fOJOS53S<ct 
ppr 

f<>JOGGCSS<a 
ppr 

f<> J<>SSSSSS<a 
ppr 

f<>JOSSSSSSS<a 
ppr 

foj<>SSSSSSSS<a 
ppr 

f/J=/S=/a 

ppr Patientea 

f<>JOiaSSSii<a 

PPr 

f/J/5/a 
ppr 

f/L/5S5S5SS/a 
ppr 

f /I/SSSSSS/a 

ppr 

f/7./SSSSSSSS/a 

ppr 

f/E*E/SSSS*E/a 

ppr Pafcientez encore un peu 

f<SE<SSSSSSSSSSS5SSSS<a 

ppr 

r<SE<SSSSSSSSSSSSSSS<a 
ppr 

fcsE<;sssss5ssssssss<:a 
ppr 

f<SE<33S333SS33S3S<a 

ppr 

f<SE<SSSSSSSSSSSS<a 

ppr Presque fini... 

f <SE<S3SSSSSSSSS<a 

ppr 

f < SB < s 55 S S SSSSSS<a 
ppi 

f<SE<SSSSSSSSS<a 
ppr 

fOSSSSSSSSSOSSSSSSSSSS<a 
ppr 

pprGGG 
pyd 
PQt 



DOS 3.3 
ProDOS 
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Apple & Minitel : 

Ligne telephonique ' artificielle' 

Jean-Louis Chaulot-Talmon 



Que ce titre ne laisse pas sup- 
poser que nous avons decouvert 
des lignes telephoniques naturel- 
les. II s'agit simplcment de vous 
proposer un montage simple per- 
meitant de sirnuler une ligne 
telephonique pour la phase de 
mise au point d'un serveur tel6- 
matique, par exemple. Ou, pour- 
quoi pas, pour mettre en place un 
serveur interne ne dependant pas 
du RTC, le Reseau Telephonique 
Commut6. 

Le probleme est le suivant : votre 
Apple fait fonction de serveur 
(avec un modem ou celui d'un 
Minitel) et vous souhaitez tester le 
travail. 

La methode la plus simple — la 
plus couteuse — consiste a dis- 
poser de deux lignes telephoni- 
ques. Tune connect^ k I'Apple 
serveur, 1'autre au Minitel. Bien 
sur, le temps des essais est dans 
cc cas tax6. 

ReHer T Apple serveur au Minitel 
a l'aide de la prise peri- 
informatique n'est pas d'un grand 
sccours non plus, car certaines 
foncrions du serveur sont alors 
inoperantes. 

Cette fausse ligne resoud le 
probleme ; nous trouvons relies : 
I'Apple, son modem serveur, no- 
trc ligne, le Minitel qui consultera 
son serveur. Elle rdsoud acces- 
soiiemeat le probleme familial 
que constitue a long terme l'oc- 
cupation du tdldphone. . . 

C'est ce dispositif qui est ddcrit 
ici, aprcs un brcf rappel des 
notions de telephonie sur les- 
quelles il s'appuie. 



Circuit de liaison 
telephonique 

La liaison telephonique est cons- 
titute de deux Bis ineialliques re- 
liant le poste de I'abonne deman- 
deur a celui de I'abonne deman- 
de. Notre ligne sera done cons- 
titute, de tagon analogue, de 
deux fils reliant les broches 1 et 3 
du Minitel aux broches 1 et 3 du 
modem micro-serveur. Toutefois, 
dans la communication reelle, les 
parties terminales d'un circuit — 
les lignes d'abonnes — assurent 
des fonctions complementaires et 
il convient d'examiner celles qui 
incombent a la ligne de I'abonne 
demand6. 

Appel et supervision de 
I'abonne demande 

Lorsque, conformement aux si- 
gnaux emis par le cadran ou lc 
clavier d'appel du demandeur, le 
central telephonique etablit la liai- 
son avec lc demand^, plusicurs 
operations restent a effectuer : 

• alerter le destinataire en action- 
nant la sonnerie ; 

• dttecter le decrochage afin 
d'arreter la sonnerie et. . . taxer 
lc demandeur ; 

• se mettre en mesure de rietecter 
le raccrochage pour liberer les 
lignes. 

Les organes esscnticls 
d'une ligne d'abonne 

Les deux fils LI ct L2 dc la ligne 
sont reunis l'un k 1'autre, a 
l'interieur de la ligne telephonique 



de I'abonne, de deux famous 
differentes : 

• d'une part, et de fagon perma- 
ncntc, par unc liaison compre- 
nant, disposes en serie, un 
condensateur C (en general 2 
\\F) et une sonnerie elecrroma- 
gnetique S d'une impedance 
superieure a 1000 Q ; 

• d'autre part, mais seulement 
quand le combine a ete souleve 
de son support (I'interrupteur 
CC est alors ferme), une liai- 
son metallique comprenant 
notamment les contacts d'im- 
pulsion du cadran d'appel 
(CA) - fermds au repos - des 
enroulcmcnts d'une bobine 
d'induction In et la resistance 
variable du microphone. 

Au repos, la ligne n'est parcourue 
par aucun courant puisque : 

• le poste est raccroche : la seule 
liaison presente entre les fils de 
ligne est la liaison condensa- 
teur/sonnerie, or la tension B 
est continue ; 

• I'interrupteur d'appel / est 
ouvert. 

Quand lc moment est venu d'ap- 
peler I'abonne, I'interrupteur / se 
ferine, le courant alternatif A 
debite a travers le condensateur et 
la sonnerie. .. sonne. 

Des que I'abonne decroche, I'in- 
terrupteur CC se ferme, lc cou- 
rant B passe. 

Pendant touie la conversation, la 
ligne reste alimentee ainsi en cou- 
rant continu, courant qui sera mo- 
dule par le microphone a 1' image 
des signaux sonores qu*il regoit. 

Au raccrochage, CC s'ouvre, le 
courant continu est interrompu. 
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Realisation de la 
ligne artificielle 

Pour que les centraux telephoni- 
ques puissent 6tablii\ maintenir, 
puis liberer la communication 
comme Us ont coutume de le faire 
pour une conversation normale, 
le modem simule aussi rous les 
etats successifs- dun poste tele- 
phonique. Cela signifie, a 1'inver- 
se, que la ligne anificielle doit 
reconstituer les fonctions 
essentielles — appel et alimenta- 
tion d'une ligne d'abonne nor- 
male pour pouvoir declencher les 
ctats successifs des modems cn 
presence. 

Elle devra done comprendre : 

• une liaison ineiallique entre 
Minitel et micro-serveur (du fil 
et deux conjoncteurs norma- 
lises PTT « 20,00 F) ; 

• une alimentation en courant 
continu. Compte tenu de la 
faible intensite necessaire (15 a 
20 in A par modem), 4 piles 
plates de 4,5 V connect^es en 



scrie avec une resistance ajus- 
table Rl conviendront ; 

• une alimentation en courant al- 
ternatif. Un transformateur de 
sonnerie d'appartement 220/ 
12v-50mA convicnt ; 

• un bouton poussoir Ba pour 
en v oyer, a la demande, le cou- 
rant d'appel sur la ligne anifi- 
cielle. La encore une resistance 
ajustable de quelques centaines 

d'ohms servira k regler le 

courant debite lors d'un appel. 



Reglage de la ligne 

Un poste telephonique ordinaire 
relie a Tun des conjoncteurs. 
ajustcr la resistance Rl pour que 
le courant continu envoyfc vers le 
poste decroche, se situe entre 13 
et 17 mA (350 a 400 Q). 

Poste raccroche, ajuster R2 en 
appuyant sur le bouton d'appel 
jusqu'a ce que la sonnerie time 
tres faiblement. Le courant sera 
alors d'environ 10 mA soil une 
valeur de resistance d'environ 



200 Q. 

Le systeme est alors pret ; il sufi it 
de relier le micro-serveur a une 
extremite et le Minitel i l'autre 
pour comrnencer les essais.,, 
gratuitement. 

A noter... 

...que certains modems areponse 
automatique necessitent 2, 3 ou 4 
trains de courant d'appel pour 
rdpondre. Selon le cas appuyer 2, 
3 ou 4 fois sur le bouton d'appel ; 

...qu'avec la faible consom- 
rnation, le pile auront une dur6e 
de vie substantielle ; 

...que, lors de ['utilisation, le 
poste telephonique est inutile et 
sen done normalement sur La 
ligne telephonique PTT (une 
source dc con flits en moins) ; 

...qu'accessoirement, cette ligne 
artificielle permet de relier deux 
postes t61ephoniques ordinaires. 
pour la plus grande joie des 
enfants. 




Central telephonique; lAbonne 

Schema de principe Central/ Poste d'abonne 







+ Piles 




L*t* t <<' if* 



220 V 



Schema de la ligne 'artificielle' 
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Micro -info rmations 

Jean-Michel Gourevitch 



Vous decouvrirez dans le cahicr Mac les 
petils demiers d'Apple : Tun, le 'SE' 
fonctionne avec le processeur Motorola 
68OO0, l'autre, le 'Mac IT veritable Mac 
'ouvert' avec ses six slots pour cartes 
d'exteusion utilise un 68020. Mais 
d'a mres nouveautes explosives coneer- 
nent les communications et I'integra- 
lion du Macintosh dans des entreprises 
utilisant des IBM petils ou gros. On n'a 
pas fini d'en entendre parler, car c'est 
tout le monde de la micro-informatique 
qui va en Sue bouleveise\ 

Le nouveau 
serveur 

La premiere nouveaute" (annoncee 
d'ailleurs dans le dernier numero de 
Pom's), e'est le nouveau serveur. II 
repond au doux nom d'AppleShare. Et 
est siniplemciu cotisiitue d'un logiciel 
qui transforme un Mac en serveur dedie*. 
De<Jie, car ce Mac ne peut alors (et e'est 
bien dommage) plus fairc grand chose 
d'autre, sinon faire fonctionner 
simultanement une autre application 
tool en jnuani en arriere fond son role 
de serveur. AppleShare vaut aux 
£tats-Unis quelque 800 dollars et 
permet de servir 25 utilisateurs. Le 
plus, c'est qu'on peut intcrconncclcr 
entre eux les serveurs. Apple utilise 
ainsi 20 Mac servant 450 persortnes. 
L'une des possibilites les plus 
reVolutionnaires d'AppleShare (baptisce 
multilaunching) consiste dans la 
possibility donn£e a plusieurs 
utilisateurs de pouvoir ouvrii 
simultanement une application installee 
une seule fois. Les editeurs de logiciels 
vont sfirement faire une drole de tete. 
L'autre caractenstique du serveur 
AppleShare e'est d'etre intcgrc* a la 
derniere version (la 5.4) du Finder. Pour 
les utilisateurs e'est parfaiiement 
transparent. 

11 faudra que certains logiciels soient 
adaptes, mais d'ores et deja, Tops de 
Centram (cornpagnie d'ailleurs rachetce 
par 3 COM qui sc pose en specialiste de 



la communication sur Mac), Helix 
ri'Odesta, les produils de General 
Computer (comme l'Hyperdrive) et, a 
coup sur, la nouvelle version de 4e 
Dimension toument sous AppleShare. 

Le probleme e'est done que le Mac 
serveur nc peut pratiquement faire que 
cela. Ou presque. Car il peut faire 
Luunier simultanement une application 
comme Inbox de Think 
Technologies. Inbox, e'est un 
fantastique programme de courrier 
electronique. Un installe ce programme 
sur lc serveur, puis sur le syslerne de 
chaque utilisateur. On peut alors utiliser 
tout 1'atscna! de boites a lellres, 
expeciier des notes a certains ou des 
messages a tous, avec en prime 1'heure 
d'envoi du message, la protection de 
certains messages par mots de passe, 
etc. Les messages sont limites a 30 
pages. Pour les expedier, il suffil de 
cliquer sur les noms des utilisateurs 
connectes qui se deroulent dans une 
fenetre. On peut difficilemenl faire plus 
simple. (Prix 295 dollars plus 75 
dollars par utilisateur). Utilisant les 
dcrnicrs raffincmcnts des techniques 
d'Apple, Inhox pent relier des Mac a des 
IBM. 

IBM, nous void 

Car l'autre mouvernent spectaculaire, 
e'est le pas fait par Apple vers l'univers 
IBM. Avec notamrnent I' Apple DC A 
filter. II s'agit d'un iraducteur qui 
traduit en fichicrs au format Mac Write 
les fichiers DCA. II faut savoir que 
DCA est la norrne de standardisation 
d'IBM pour l'echange de fichiers entre 
PC. En clair, on pourra desormais 
traduire un fichier tcxtc ccrii par 
exemple sous le Displaywriter d'IBM 
pour le lire ou le travailler avec 
MacWrite. Encore faut-il le transmettre. 

I.e Transmcltre ? Rien de plus simple, 
carvoici aussi qu Apple sort (enfin) un 
produit qui etait devenu presque 
mythique : sa carte permettant d'inlegrer 



tout compatible MS DOS au rcscau 
AppleTalk. Voici une carte vendue 400 
dollais qui peimet done a un IBM 
d'envoyer un fichier d'impression vers 
rimprimante LaserWriter ou un fichier 
texte vers le Macintosh. Ou, suivez 
mon regard, de transferer un fichier 
d'edition electronique de PageMaker 
pour IBM vers PageMaker pour Mac... 

II ne manquerait plus que de pouvoir 
connecter le Mac a une unite centrale 
pour 1'implanler solidement en 
entreprise. Vous avez dit unite 
centrale ? Voici 1'AppleLine 3270 
File Transfer Software. Lui aussi 
developpe* et vendu par Apple en 
personne. 11 permet de recuperer sans 
douleur les fichiers des IBM 3270. 

Voici pour les donnees, mais puurquoi 
s'arreter en chemin ? On pourrait aussi 
prevoir un moyen de faire tourner 
MS/DOS sur le Mac. Comment ? C'est 
deja fail 7 Hunter Systems, une societe 
de Palo Alto aurail ddvcloppc un 
logiciel permettant aux possesseurs de 
Mac equipes de processeurs 68020 (les 
Mac Ouverts) de faire tourner les 
logiciels MS/DOS avec un systfeme 
baptise X DOS ? Mais alors, quel 
apanage reste t-il done a IBM ? 

Du rififi dans les 
bases de donnees ? 

Apple finit aux fitats-Unis de tester un 
SOBD connu sous le nom de code de 
Silver Surfer qui nest autre que lc 
Fameux 4e Dimension d'ACI (rioni la 
derniere version est tout a fait 
extraordinaire). C'est que la firme a la 
pomme va, en effel, distnbuer sous son 
nom lc programme ccrit par Laurent 
Ribardiere. 

Cette decision n'esl pas du gout de tous 
aux clatS-Unis, et les editeurs des 
programmes concurrents, comme Helix, 
font grise mine et adjurent Apple de 
renoncer a sa decision. Quant a Ashlon 
Tate, l auteur de DBase IE, qui a reiarde 
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le lancement rie son SGRD, il observe 
les 6venemems. La decision d* Apple 
n'est apparemment pas facile. II 
manque, en effet au Mac un logiciel de 
bases de donnecs qui soil devenu un 
standard, comme DBase l'a ele pour le 
PC. Dans ceitc categoric, aucun produit 
ne s'est impose encore comme Excel a 
pu le faire pour les tableuis. Dileinme 
d' Apple : patronner un produii 
extraordinaire comme 4D et risquer de 
decourager tout un secteur de l'ediuon de 
logiciels, ou attendre el risquer de voir 
naltrc plusicurs standards doni aucun ne 
s'imposerail. Je n'aimerais pas etrc dans 
la peau de celut qui a pns la decision... 

Vive I'Apple IIGS 

C'esl le cri que vont pouvoir lancer les 
actuels possesseurs d'Applc //c. U est en 
effet prevu qu' Apple procede en guise 
^'upgrade a un cchangc standard dc leur 
machine. lis pourront troquer leur 
ordinateur favori (repris 4151 Francs) 
contre un GS tout neuf. Et que va faire 
Apple des //e ? Bonne question. lis 
seront recuperes ct distribues dans les 
ecoles. D'une pierre deux coups : on fait 
plaisir a dc bons clients et on essaie 
ri'en recniler d'anires. Fute non ? 

Communications 

Revqnons au Mac qui s'impose comme 
un fabuleux oulil de communication. 
Frederic Levy d'Hello Informatiquc 
a developpe sa demiere version de Mac 
Tell : MacTell3. Voici un logiciel 
exe.mplairc. II a 6te le premier vrai 
programme a transformer un Mac en 
Minitel. II ne cesse de s'ameliorer. 
Depuis la premiere version, on dispose 
d'un langage de procedures permettanl 
d'automatiser. par exemple. la 
consultation d'un scrvcur. Eh bicn 
riesormais, ce langage de procedures est 
en francais. On peui par exemple 
ecrire : "Composer ie "36 15" (arriter 
{'execution si pas de connexion) 
Pause de 10 secondes 
Taper "1 75040781 " r suivi de Envoi* 

Plus besoin de jargon complique* ou de 
simili Basic. Cc logiciel qui pcrmct dc 
tout automatiser. prend toute sa valeur 
avec le Modem Diapason d'Hello 
Informatiquc. On peut alors 
automatiser la consultation d'un serveur 
a une heure donnee. On peut aussi de 
tacon ultra simple translormer le Mac 
en un mini scrvcur accessible depuis 



n'importe quel Minitel Parmi les autres 
ameliorations, signalons l'enregistre- 
menl automatique de toute une 
consultation qu'on peut ensuiie rcjouer 
en local- MacTcll3 associc au modem 
Diapason formcnl vraiment un tandem 
in£galc\ 

Langages 

Le Mac accueille deux nouveaux 
langages. Grace a Coral Software, 
un Logo orient^ objet et baptise bien 
sur Object Logo incorporant les 
raffinements du Lisp. Cc langage de 
programmation de haut niveau est bien 
tentant avec son ediitut multi fenctrcs, 
son devermineur et son compilateur. 
Prix : 80 dollars. 

Un autre editeur americain : Spencer 
a, lui, developpe un APL 68000 pour 
le Mac. Les amateurs dc ce langage la 
(il cn cxistc pas mal) sont servis. La 
aussi on bdneficie d'une interf ace aux 

routines graphiques QuickDraw du Mac. 
Pour 295 dollars. 

Textes et Edition 
electronique 

D'abord un traitement dc tcxtc. Un dc 
plus, Cest celui de la firme Word 
Perftcl, qui a reecril puuj lc Mac son 
traicement de texte (1W des plus cotes 
pour le PC). La firme s'est pliee aux 
menus qui font la glolre du Macintosh, 
mais le changement de caracteres se fait 
par une icone au bas de 1'ecran. Word 
Perfect pour le Mac devrait eire vendu 
400 dollars. 

Pouisuivons par une petite histoirc pcu 
morale. La firme Lettraset avail acheie 
la toute nouvelle version de 
MacPublisher qui devait s'appeler 
Letirapage et publie des public ites 
luxueuses sur ce produit. Comme ce 
programme netait pas pret, elle s'est 
rabattu sur la derniere version dc Ready 
Set Go, ia 3.0, dont elle a achete* les 
droits. Consequence pratique pour les 
utilisateurs : jusqu'a la fin mars, 
Ready Set Go est vendu aux 
£tats-Unis par son conccptcur 
Manhattan Graphics pour 295 
dollars. Ensuitc, simpleinent rebaptise' 
LettraPage, il en coutera 100 de plus. 
Aucune crainte de ce genre en France. 
Cest la Ires dynamique societe BIP qui 
continue a importer, iraduire (en deux 
scmaines) et vendre Ready Set Go 3. 



Rappelons que Ready Set Go version 3 
n'a plus rien a voir avee les versions 
prec ententes, qu'il permet de. creer ou 
manipuler des objets, est dote d'un 
traitement de texte sophistique 
permettanl de lier des textes pour le 
faire sc ddverser aux endroits prcvus, 
permettant aussi le crenage (controle de 
1'cspaceiiient des lettres), la cesurc 
automatique, el la correction 
orthographique, gr£ce a un module qui 
sera developpe avec l'universite de 
Compiegne. BIP qui impone aussi le 
programme graphique Cricket Draw, 
ainsi que divers utililaires, comme 
Acta, un traitement d'tdees incorpore 
dans le menu Pomme vend le lout sous 
le nurn d'Edlt 2000. Un ensemble 
d'ddition de bureau tres complet qui 
pourrait faire quelque mal au 
quasi monopole que s'etait assure 
PageMaker, 

Cest encore BIP, qui importe Guide. 
Guide est un "Hypertexte". C'esl a dire 
un systeme permettant d'acceder a des 
siraies d'informations. Imaginons un 
dessin d'un moteur. On clique sur lc 
couvre cylindre, et dans une fenetre 
s'inscrit sa reTeYence. On peut encore 
cliquer dans ceite reference pour voir par 
exemple apparaTtrc lc prix. El ainsi de 
suite. On peui 6tablir des syslemes dc 
reTircncc, des chronologies, etc. Ccs 
systemes sont particulierernent utiles 
pour reiTOUver des informations 
stockees par exemple sur un disque dur 
ou un dc ces CD ROM, ces Compact 
Discs pour ordinateurs qui vont 
commencer a se r6pandre. L'hypertexie 
est done un systcmc electronique 
permettant de lier, reTercncer. retrouver 
des inforrnatioris. II n'est handicape* que 
par un traitement de texle insuffisant et 
un format non standardise. 

Memorandum de Target Software 
esl un de ces logiciels qui vont faire un 
malheur. II permet de nSaliser des notes 
(comme ces noles adhdsives qu'on colle 
parLout) el de les relier a une cellule 
d'une feuille de calcul. Ce logiciel 
s'installe en accessoire de bureau dans le 
menu Pomme coute 100 dollars et 
fonctionne avec Excel, Muliiplan, Jazz 
ou Works. 

A remarquer encore un logiciel d \5dition 
electronique c'esl Xpress de Quark. II 
inclut bien sur (dans sa version 
amcricainc) un correcteur orthogra 
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phiqtie de 80000 mots, la ensure 
automatique, etc. Particulierement 
remarquable la possibility de faire se 
repandre automaliquement le texte 
autour d'un dessin aux formes 
irregulieres. Prix : 695 dollars. 
Une Fois un tcxte ou une publication 
re>alis£, rcstc encore a l'imprimcr. Un 
accessoire particulierement utile permet 
d'operer en lache de fond, sans mobilise! 
le Macintosh, e'est le Spooler. 
SuperMac Software a developpe 
Supcrspool, un formidable utilitaire 
permetlanl d'enregistrer un fichier 
d'imprcssion sur lc disquc et dc 
rimprimer lout en continuant a 
tiavaillei sui lc Macintosh. Un 
accessoire qui change la vie des 
uiilisateurs pour 60 dollars. Laser 
Superspool permet de r^aliser la 
meme operation avec une imprimante 
Laser ct come 150 dollars dans la 
version mono-utilisateur et 395 dollars 
dans ia version niutliulilisaleurs 
(jusqu'a 5). 

Un auire accessoire (cette fois materiel) 
permet aussi d'irnprimer avec la Laser 
sans immobiliser le Mac, e'est le Mac 
Buffer d'Ergotron. Une petite bofte 
qui s'insere entrc lc Mac ct la 
LaserWriter ct permet de stocker 1 ou 2 
M6gas de tcxte. 

Outils graphiques 

Ces programmes permettant au Mac 
d'exploiter touies ses possibilit6s de 
calculs graphiques l'imposent dans les 
milieux les plus divers. Voici ainsi 
MacSpIn vendu Par Bruno Rives 
et Assocles. 

C'est un logiciel d'analyse graphique des 
donnecs multidimensionncllcs permet- 
tant de decouvrir des associations, des 
nun linearit&s, d'aniirier et visualiser un 
graphique et donnees en 3D. Son grand 
avantage est de pouvoir integrer des 
informations categorique ou du lexte 
dans un graphique. Un outil utile dans 
le marketing, ringenierie ou la 
physique des particules, permettant de 
trailer des informations d'astronomies, 
de geophysique, etc. 



Et r Apple // ? 

Les Apple IIGS commencent a £tre 
livr£s et le II va son train. On attend 
pour avril deux nouveautes de taille 
destinies k lui perrnettre l'acces au 



monde MS/DOS. Dos Boot 
developpe* par Orange Micro est une 
petite boite contenant un lecteur de 
disquettes et une partie des composants 
d'un compatible IBM PC permettant au 
IIG d'utiliser ses programmes. 
Applied Engineering a prefere 
erudier une carte permetiant d'ecrire el de 
lire sur un lecteur de disquettes 
indiffdremment en format IBM ou 
Apple. La carte comprend aussi un 
proccsscur 8088 (eclui des compatibles) 
mais cadence' a 8 Mhz. Toumant done 
plus rapideinent que eclui de 1TBM. Je 
sais que de nombreux lecteurs de Pom's 
soni impresses par cette possible 
compatibility et je ne manquerai pas de 
leur donner des que possible des 
informations supplementaires sur ces 
produits. 

En attendant. AST Research a deja 
saut6 dans le train do l'ddition 
electronique et 6tudi6 toute une serie de 
produits pour le IIG. Un sysleme de 
numerisation permetiant de transferer 
les images prises en viddo et de les 
travailler avec AST Vision Effects 
IIG (domrnage que 9a ne fonctionnc 
qu'avcc lc sysifcmc coulcur NTSC). Des 
disques durs, une carte de memoires 
Ram, etc. Applied Engineering 
vend la feuille de calculs filectronique 
VIP professional (rapide, puissante 
mais exigeant de la memoire) avec une 
carte de memoire pour 250 dollars. 
Quant a Maxx delcon 
Incorporated, c'est tout simplement 
un volant d'avion qui s'installc dans la 
prise de jeux et permet d'utiliser de 
facon encoTe plus r£aliste les 
simulateurs de vol. Prix 130 dollars. 

Des programmes 
en ruban 

Le Softstrlp — deja en vente depuis 
quelques mois aux fltats-Unis — 
permet dc stocker des donnecs sous la 
forme d'un ruban imprime* en noir et 
blanc. Un lecteur qu'on branche sur lc 
Macintosh permet de retransformer ces 
donnees en fichiers ou programmes. 
Deji^ plusieurs revues d'informatiques 
publient leurs programmes sous cette 
forme aux filats-Unis. Le lecteur permet 
en quelque 30 secondes de lire ces 
bandes et dc r6cupercr lc programme 
dans rordinateur sans avoir a les taper 
au clavier. Le prix de ce systeme tres 
remarquable est de 2200 Francs. La 
firme qui le produit, Cauzin, s'est 



alliee avec Kodak pour le distribuer 
dans le monde. Sera-ce un jour un 
nouvcau standard ? 

Un souhait 

La peri ode des declarations d'impols 
s'est une fois de plus 6couli$e sans qu'un 
Iditcur ne propose un systeme complet 
permettant de declarer et calculer ses 
impdts sur ordinateur. Ce marche est 
pourtant prospere aux £tats-Unis. Et 
nos Mac francais alors ? 

Adresses 

Think Technologies 
420 Bedford St, Lexington 
MA 02173 

Hello Informatique 

l.ruedeMetz 

75010 Paris - Tel. : 45 23 3 34 

Coral Software 

T61. : 617 868 7440 (aux 

£tats-Unis) 

Spencer Organization 
PO Box 248 Westwood 
NJ 07675 

BIP 

1% rue Due 

75018 Paris - Tel. : 42 55 44 63 
SuperMac Software 
950 N.Rengsstorff Av 
Mountain View CA 94043 

Ergotron 

PO Box 17013 Minneapolis, 
MN 55417 

ACI 

6, avenue Franklin Roosevelt 
75008 Paris - Xfl. ; 43 59 89 55 
Bruno Rives et associes 
6, avenue Franklin Roosevelt 
75008 Paris -TA.: 42 89 02 36 
Target Software 
T61. : aux Ctats-Unis : 
(305) 252 0892 
Applied Engineering 
PO Box 798 Carrollton 
TX 75006 

Orange Micro 

1400 n.Lakeview 

Av. Anaheim CA 92807 

AST Research 

2121 Alton Av. Irvine CA 92714 

Icon Incorporated 

1611 116thAvNEDcllcvuc 
WA 98004 

3 
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Un nouveau produit Pom's : BananaSoft 



Pom's vous propose un nouvel utilitaire qui simplifiera les 
rapports houleux qui existent souvent entre le programmeur 
et 1* Applesoft. E.P.E. nous donnait un editeur dlgne de ce 

nom ; void maintenant une amelioration des possibilites du 
Basic ainsi que la correction de 'bugs'. 

Le but 

Les principaux objets de Bananasoft sont : 

• reconcilier la carte 80 colonnes et le Basic (problemes du 
GET, du HTAB„.) ; 

• aider le Basic dans sun travail sur kb ehaines (nouvelles 
fonctions, ramassage des poubelles 15 fois plus rapide) ; 

• permettre la saisie au clavier sans attendre la 
disponibilite du Basic : il s'agit d'un veritable 'buffer 
clavier' de 32 caracteres. 

On se rapprochera aussi du Basic Microsoft Ssx par des 
functions telle* SWAP, ERASE, LINE INPUT sans pour 
autant encombrer la memoire (moins de 4Ko). 

Quelle configuration ? 

Bananasoft fonctionne sans probleme sur Apple )[+ (avec 48 
Ko et ROM autostart), //e, //p 6S332 et //r). Bien entendn, 
Bananasoft est a rneine du tirer parti de la presence 
eventuelle d'une carte langage. 

Bananasoft reconnait certaines cartes 80 colonnes : 

• Apple Text card et Extended 80 col. pour 1* Apple //e ; 

• Carte compatible (Eve Chat Mauve par exernple) ; 

• Circuiterie interne de 1' Apple //c ; 

• Carte 80 col.Videx Videoterm pour Apple 2+ (firmware 
2.4 : si votre carte reconnalt les sequences ESC I, J, K, M au 
clavier, elle conviendra). 

Le systeme d'exploitation supporte est le DOS 3.3 en version 
48 Ko uniquement. Bananasoft lui apporte bien sur quelques 
raffinements comme la possibility d'entrer ses commandes en 
mode minuscules. 

Tout programme Applesoft peut etre execute sans 
modification sous Bananasoft, si Tune au moins de ces deux 

conditions pst verifiee : 

• le buffer clavier est desactive durant l'execution dudit 
programme ; 

• le programme n'accede au clavier que par les ordres GET, 
INPUT ou LINE INPUT (pas de PEEK/POKE/WAIT). 

Les modifications a apporter aux programmes ne s'inscrivant 
pas dans ce cas la sont explicitccs dans la documentation. 
Notons ('existence de deux nouvelles commandes DOS : 
INSTALL et INHIBIT gerant la reception de caracteres dans 
le buffer, deux outfls puissants pour resoudre le probleme 
prerite. 

Bananasoft se reloge de lui-meme entre le DOS et les butters 
et est de cette raqon totalement protege d'une modification 
du nombre de ceux-ci (par la commande 'MAXFILES'). 

Les possibilites 

Les ameliorations portent sur 4 points : 



Amelioration des fonclions du DOS 

• Minuscules dans les ordres DOS. Ainsi : 

jbsave TlTI,a$2000,l$lfff 

est acceptee par le DOS qui effeetue une conversion 
minuscules /MAJUSCULES sur toute la ligne, exceptee les 
denominations de fichiers. 

• une nouvclle option est fournic pour l'ordre BSAVE, 
l'option E' (comme END). 

JBSAVE TITl,A$2000,E$3FFF 

est equivalent a ; 

]BS AVE Trri,A$2000,L$2000 

naturellement, les 2 options 'E' et 'L' s'excluent 
mutuellement. 

• Un nouvel ordre est apporte* au systeme : il s'agit de '-' 
(prononcer SMART RUN). Les utilisateurs de ProDOS 

connaissent deja cet ordre ; il s'agit d'"executer" un fichier 

quel que soit son type. SMART RUN sera equivalent a un 

EXEC si le fichier ouvert est du type texte, a RUN si celui-ci 

est un programme BASIC Integer ou Applesoft, ou a BRUN 
s'il s'agit d'un fichier binaire. 

• Les commandes INSTALL et INHIBIT ont ete ajoutees au 
DOS afiii de sirnplifier I'expluitatiun du buffer clavier. 

• La commande FP ne deconnecte pas Bananasoft dans le cas 
ou le langage courant etait l'Applesoft mais le reinstalle si 
le langage clail l'Intcgct. 

• Et enfin, the last but not least, la commande INIT 
conserve son fonctionnement normal : elle installera sur 
disquette unp vprsion standard du DOS. 

• Dernier petit detail, Bananasoft permet aux possesseurs 
d' Apple ][+ (les pionniers !) de ne pas tomber en syncope 
devant des ecrans "francophones", un mode de visualisation 
permet a ceux-ci : 

- une conversion minuscules/MAJUSCULES des caracteres 
soitant sur leur ecrans 

- une conversion des caracteres 'eeauc/ en 'eeauc'... 

Amelioration des fo notions 
standard d Applesoft 

• Les intructions BASIC 'PRC et 'INC ne deconnectent plus 
le DOS. Ainsi : 

20 PR£1 
est devenu equivalent a : 

30 PRINT CHR$ (4);"PR£1" 

• Un ramassage des pouhelle.fi ("garbage collection") est 
integre dans Bananasoft, totalement transparent, il vous 
apporte une multiplication de la vitesse d'execution des 
intructions portant sur les chaincs dc caracteres par un 
facteur superieur a 2... Bananasoft reloge de lui-meme une 
version amelioree de FRE(16) sur la carte langage si eelle-ei 
a ete detectee lors du boot, liberant ainsi plus de deux pages 
(1 page = 256 octets) pour le Basic. A noter que re chargement 
ne perturbe en rien le fonctionement du langage BASIC 
Integer si celui-ci est lui aussi charge en RAM. 

• Toutes les instructions Applesoft de positionnement du 
curseur (HTAB ainsi que le scparatcur V dans l'ordre 
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PRINT) sont d£sormais compatibles avec les 80 colonnes a 
l'ecran. 

• L'instruction GET ne detectait pas sous Applesoft la 
frappe de la touche ESC lorsque les programmes de gcstion 
80 colonnes (anciennes KOM) de I' Apple //e etait active. 
Bananasoft resout ce probleme. 

• Les instructions HOME et HTAB sur Apple ][+ ne 
foncflonnaient pas, ou mal, lorsque le peripherique de sortie 
etait la carte 80 colonnes, ces petites miseres ne sont plus 
maintenant qu'un mauvais souvenir... 

• La fonction POS() est opcrantc maintenant egalement en 
80 colonnes. 

Nouveaux mots-cle au 
vocabulaire d'Applesoft 

• RESTORE <n"-de-ligm> 

Memo signification que pour le Basic Microsoft S.x, 
repositionne le pointeur de DATA au num£ro de ligne 
specifie, numero qui est optionnel. 

• SWAP nom-var ,rwm-var 

Assure I'echange des valeurs prises par les deux variables 
specifies. Celles-ci doivent etre du meme type (entier, reel 
ou chaine) sinon une errcur du type TYPE MISMATCH est 
signalee. Ex : SWAP A$,FF$ 

• ERASE nom-de- tableau 

efface de la memoire centrale le tableau de variable rlont le 
nom est specific. Ex : ERASE G$. 

• UNE INPUT <constante-littertth;>nom-var. 

Permet d'entrer toute sequence de touches frappee au clavier 
et de la stocker dans une variable chaine dc caracteres. Los 
seuls caracteres de controle etant interceptes par le 
programme sont RETURN pour validor, ot fleches gauche et 
droite pour corriger. Ex : 

LINE INPUT "init. imprimante ? "JI$ 
Ceci permet de saisir directement au clavier ESC-e par 
exemple pour faire passer l'imprimantp en caracteres Elite. 

• *LIST<n ~de-Hgnp.>< r xn B -de4igne> 

La syntaxe est identique a celle de l'instruction LISTde 
F Applesoft. La difference tient dans le format d'affichage 
des mots-cle : ceux-ci nc so voicnt pas systematiquement 
entoures par des espaces. Ex : 

'LIST 1009,1080 

• INSTR«indice de depart, >chafne, chaine) 

Cette nouvelle fonction offerte par Bananasoft cherche la 
chaine B$ a rinlerieur de la chaine AS en partant du 
caractere N, et retourne la position de la chaine BS dans P. 

P=!NSTR(N,A$,B$) 

Exemple : 

A=INSTR(5,"SALUT LA CQMPAGNIE! SAL 
UTV/'SALUT") 

retournera la valeur 21 dans A, le premier SALUT apres le 
cinquieme caractere apparaissant en position 21. 

• STRING$(N,C) 

Retourne une chaine de N caracteres C. Si C est une 
expression alphanumerique, le caractere utilise sera le 
premier caractere resultant de S'expression. Exemple : 

A$=STRING$(4/m234") 

retournera la chaine "OOOO" dans A$, A$=STRING$<4,48) 
retourne aussi "0000" dans AS. 

• Pour ceux pratiquant une programmation plus proche de la 

machine, Bananasoft leur permet des POKE et des PEEK sur 



des mots de 16 bits (2 octets eonsecutifs de la memoire) : les 

nouveaux termes seront respectivement : 

DOKE adresse, mot _1 6 bits (adresse < poids faible - 

adresse+1 < poids fort) 

DEEK(adresse) renvoip le mot_16 bits contenu dans adresse. 
Ex; 

DOKE 1780,DEEK(&H3UU) 

• Les constantes hexadecimales sont admises dans toute 
expression arithmetique : &HFF equivaut a 255. Exemple : 

AC = &HFC58 : CALL AC 

• II est desormais possible de connaitre l'adresse d'une 
variable en memoire, ceci par emploi de la tonction 
VARPTR : 

VARPTR(nom_variable) 

renverra l'adresse oil se trouve stocked la valeur d'une 
variable numerique ou le descriptenr d'une variable chaine 
de caracteres. Une technique d'emploi de routine en langage 
machine dans un programme BASIC pourrait alors etre 
celle-ci : 

CALL DEEK(VARPTR(A$}+1) 

oil la routine rclogoable se trouverait etre dans la variable 
AS. A noter que cette methode est aussi populaire sur 
certaines machines (Macintosh, TRS80) que la routine 
SHLAM sur Apple//. 



Le buffer clavier 

A la mise en route du systeme, la reception des caracteres est 
inhibee et la gestion clavier est normale ; e'est la commande 

DOS INSTALL qui autorise le buffer a fonctionner... La 

reception des caracteres est lancee durant ; 

• tout appel a CHRGET/ CHRGOT en page zero ; 

• tout appel a COUT passant par le relais du DOS ; 

• tout appel a RDKEY passant par le relais du DOS et 
n'appelant pas un peripherique clavier ; 

• tout appel a RWTS. 

Les caracteres tapes au clavier seront stockes en attendant la 
fin du travail en cours (anticipation lors de calculs lents par 
cxcmplc). 

Lorsque le buffer clavier est active, la frappe de certaines 
touches provoque divers processus. 

- La frappe de «rCTRLv«rX> provoque l'initialisation 
complete du buffer. 

- La frappe de <CTRL><C>, outre quelle provoque elle 
aussi l'initialisafion du contenu du buffer, nest pas pris cn 
compte par lui et le code reste dans l'adresse tampon de 
1' Apple (SC000). 

- Lorsque le peripherique de sortie est l'ecran, la frappe de 

<CTRL><$> n'est pas pris en compte et son code reste dans 

l'adresse tampon de 1" Apple. La fonction de cette touche (le 
"gel" de l'ecran) est alors assure par le driver video. 

L'adaptation (simple) de vos programmes au benefice de ce 
buffer est discute en detail dans la documentation et fait 
l'objet d'un exemple sur la disquette. 

La disquette 

La disquette 5,25 pouces au format DOS 3.3, comporte les 
sources, l'objet et une demonstration. Des informations a 
destination des programmeurs sont apportees dans la 
documentation jointe. 

Franco 200,00 F TFC, port avion hors CEE 15,00 F, 
bon de commande page 74. 
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Courrier des Lecteurs 



Les slots du HGS 

Sur mon futur GS, pourrais-je 
utiliser simultandment les ports 
intggris et mes cartes interfaces ? 

M. P. Mykiita, 92 Gennevilliers 

Oui et non : un tableau de bord 
(accessible par CTRL-OPTION- 
ESC ou CTRL-OPTION- 
RESET) vous donne pour chacun 
des slots le choix entre votre cane 
ou celle qui est integree, par 
cxcmplc cn slot 4, votre interface 
ou la carte souris. A vous de 
choisir. . . 



Minitel et Apple(s) ?? 

Que pensez de voire n 27 sur la 
communication ? Le montage que 
vous proposez pour la liaison est 
sSduisant mais le support 
technique d'un club me dit qu'il 
faut I'iviter, plusieurs personnes 
ayant claqui leur micro. S'il est 
aussi simple, pourquoi 
proposez-vous le c&ble & 
225 ,00 F alors qu'on le trouve 
parfois & 900,00 F ? Un 
informaticien qui commercialise 
les liaisons PC -Minitel me dit que 
seul le modem Sectrud 300 
convient et que la liaison lie 
Minitel est impossible. 

M. Raymond. 77210 Samoreau 

Rassurez-vous, la liaison 
proposde dans les Pom's 27 et 28 
fonctionne sans souci, telle que 
d6crice, chez nombre de nos 
lecteurs et nous pratiquons ici 
intensivement la transmission de 
fichiers a l'aide d'IntcrPom's. 

Les conseils de tel ou tel ? Que 
dire si ce n'est de faire confiance 
aux interlocuteurs qui ont la 
pratique de la communication ? 
Le modem 1200 bauds du Minitel 
ne fatiguera par plus le //c qu'un 
modem 300 bauds (votre Apple 
transmet ses donn^es a ITmage 
Writer k 9600 bauds...). 

Le prix ? Nous ne saurions rien 
expliquer mais prtcisons que les 
cables a 900,00 Frs sont 



frequemment accompagnes d'un 
logiciel d'emulation Minitel. 

Enfin, en cas de difficult de 
mise en ceuvre des programmes 
Pom's, nous vous rgpondrons 
telephoniquement : 
(1) 39 51 24 43. 



Le moniteur etendu... 

. . dt T. Le Taltec (Recueil Pom's 
n ° 2 ) fonctionne normalement sur 
I'Apple lie aprts avoir appond les 
modifications suivantes, 

Dans le source : 

L 71 CHAR1 - $F9BA (F9B4) 

L 72 CHAR2 = SF9B4 (F9BA) 

L 75 RTBL = $FAD2 (FB19) 

Dans I'objet : 

9141 :D7 (IE) 
9142:F3 (FA) 
93A7:BA (B4) 
93AF.-B4 (BA) 
93B4:B4 (BA) 

(entre parentheses figurent les anciennes 
valcurs) 

M. P. Adang, 52110 Blaiserives 



Minitels face a face 

Comment, par programme, faire 
que deux Minitels puissent se 
reconnattre aprts connexion ? 
Aprts une connexion manuelle, il 
n'y a pas de porteuse sur la ligne. 

C. Laron, UWOAix. 

II est necessaire que Tun des 
deux Minitels soit retournable, 
e'est-a-dire qu'il sache £mettre a 
1200 bauds et recevoir a 75 au 
lieu de l'inverse en fonction- 
nement sur serveur. 
Vous pouve/- vous inspirer des 
programmes "InterPom's" du 
numero 28 : 

Cote Minitel retournable, envoyer 
sur la prise pcri-informatique les 
caracteres suivants : 27, 57, 104, 
27, 57, 111 ce qui, outre le 
retournement, provoque la 
connexion el remission d'une 
porteuse a 1700 Hz (±400) qui 



declenchera la porteuse a 420 H7 
(±30) du Minitel de votre 
correspondant 



Prochainement 

Pom's vous -proposer a de 
nouveaux programmes 
d ' enregistrement et 
d' exploitation des pages 
Minitel pour Apple // et 
Macintosh. Ecrits en 
assernbleur, Us serunt dotes 
de puissantes fo net ions de 
filtrage et de recuperation de 
fichiers, Us fonctionneront 
sur toutes les machines et le 
port communication du llgs 
sera exploite. Les suggestions 
sont les bienvenues... 

Dans les prochains 
numtros, 

# un programme de gestion 
d'un ecran virtuel, 

tt des courbes recursives en 
Pascal, 

# un numeroteur de 
fichiers ProDOS, 

# DhgrTools pour 
munipuler les pages 
graphiques, 

# un programme de trace 
de courbes, 

# un jeu de reflexes et de 
reflexion, 

6 des essais hard et soft, 
6 des elements pointus sur 
les nouveaux rnateriels... 

Pour le Macintosh, 

4 des accessoires de bureau, 

6 des utilitaires, 
des applications 
autonomes de la veine 
d' InterPom's... 
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Bon de commande 

Disquettes 

BASICIUM 140 Ko (cf. Pom's n' 13) 

E.P.E. 5.1 800 Ko ou 140 Ko (cf. Pom's n B 29) 

^change E.P.E. 5.1 800 Ko ou 140 Ko (cf. Poms n" 29) 

PASCAL 140 Ko (cf. Pom's n' 15) 

MAX (Moniteur *tendu) 140 Ko (cf. Pom's n' 18) 

DOMINOS 140 Ko (cf. Pom's n" 19) 

COGQ 140 Ko (cf. Pom's n" 21) 

LUDOLOGIC 140 Ko (cf. Pom's n" 25) 

ORDICQ 140 Ko (cf. Pom's n' 26) 

BANANASOFT 140 Ko (cf. Pom's n" 29) 

Kecueils 

N"l, re^ueil des revues 1 ft 4 

Disquettes d'accompagnement 1 a 4 

N*2, recueil des revues 5 a 8 

Disquettes d'accompagnement 5 a 8 

N°3, recueil des revues 9 a 12 

Disquettes d'accompagneraent 9 a 12 

Revues, disquettes 



Revues 4 7 8 a 35,00 F 

Revues 10 11 12 13 H 15 16 17 18 19 20 21 22 23 24 25 26 a 40,00 F 

Revues 27 28 29 a 45,00 F 

Disquettes Apple // 140 Ko 5,25 pouces 

1/2 3 4 5 6 7 8 9 10 11 12 13 14 15 a 60,00 F 



16 17 18 19 20 21 22 23 24 25 26 27 28 29 

Disquettes Apple // 800 Ko 3,5 pouces 

29 

Disquettes Macintosh 

14/15/16 groupees 

17 \% 19 20 21 22 23 24 25 26 27 28 29 
Mac 'A* 
MacAstuces 
"Raccourci" 

AbonnementS Pour 6numeros a partirdu n" .. 



Abonnement a la revue seule a 225,00 F 

Abonnement revues + disquettes Apple // 140 Ko 5,25' a 525,00 F 

Abonnement revues + disquettes Apple // 800 Ko 3,5" a 625,00 F 

Abonnement revues + disquettes Macintosh a 625,00 F 

Reliures toilees 

Pour 6 numeros, un an dc Pom's a 60,00 F 



Supplement avion hors CEE : ajoutez 15.00F par riumcro et/ou disquctte I Otal T I (, ! 

Envoyez ce bon etvotre riglementh : EDITIONS MEV - 12, rue d'Anjou 78000 VERSAILLES 
Nom : 

Adresse : 

Carte bleuelVISA n D de la carte : 

date d'expiration : 

montant : F signature : 



a 200.00 F 
a 200,00 F 
a 80.00 F 
a 80,00 F 
a 150.00 F 
a 80,00 F 
a 200,00 F 
a 80,00 F 
a 200.00 F 
a 200,00 F 



a 140,00 F 
a 200,00 F 
a 140,00 F 
a 200,00 F 
a 140,00 F 
a 200,00 F 



a 80,00 F 

a 150,00 F 
a 80,00 F 
h 80,00 F 
I 200.00 F 
a 200,00 F 
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Bon de commande C ornmunicmtimm 9 



Pom's 26 : AppU 



Pom's 27 : AppU M m Cmm 
Poms 28 : 




Je desire recevolr : 



Cible MiAitcL Apple H*. //e. //e*. ngs *%ec SSC» A 225.96 

C4ble Minilel'Apple //c 1 225,00 

Oble Minitel Macintosh 128, 512 a 225,00 

Cable Mlnltel/Maeintosh Plus a 225,00 



* les programmes des numeros 26 a 28 ne fonctionnent sur le llgs qu'equipe d'une 

carle SuperS£rie Apple. Pour relier voire Ilgs an Miniiel en utilfcam le port inl6gre\ 



Total TTC 



commander un cable Macintosh Plus. 




Supplement avion hors CEE : ajoutez 15.00F 


Envoyez ce bon et voire rdglement d : 


EDITIONS MEV - 


12, nac d'Anjou 78000 VERSAILLES 


\"n in • 






\Hi-acco - 


Carte bleue/VISA n' de la carte : 

date d'expi ration : 
montam ; 


F 


signature : 



Comrne a l'accoutumee, la disquette 
Pom's "Mac 29" contient les fichlers et 

programme - executables et sources - 
publics dans le cahier Macintosh de ce 
numero. En plus, nous avons ajoute 5 
aeeessolres de bureau : 

• dCAD Calculator, une calculatrlce 
scientiflque a memolre ; 

• Hex Calculator, une ralrulatrice 
decimale/hexadecimale appreciee des 
programmeurs ; 

• Word Count, pour connaitre le nombre 
de mots, caractcrcs ct paragraphc dans 
un document ; 

• Telegraph transforme en code morse 
visuel et sonore tout ce qui est frappe 
au clavier, ou colle ; 

• Extras pcrmct de connaitre a tout 
moment la place disponible sur le 
disque, en memolre. de renommer un 
fichier... 

ct unc tres Interessante application 
DA/Test - qui permet d'essayer ou 
utiliser des accessoires de bureau sans les 
installer dans le menu 4. De fait, il evite 
aussi la saturation dudit menu avec des 
accessoire d'usage peu courant, 

Disquette Pom's "Macintosh 29* 

80,00 Frs - Bon de commande ci-contrc. 



Disquette Pom's 
"Macintosh 29" 



□ dC AD Calculator 



72,43617881 



2.897077003 
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Peg |j|*Rad 
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hyp 


arcM TS 


x! 




sin 


oos I 


fan 


log x 


In x 


1/x 


m 


•fx 


y x 


R*P 


*xp | 


( 


) 








8 
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M 


jB 


5 


6 




STO 


■ 1 


2 


S 


+ 


RCL 


LaJ 




+ /- 






TEffl 






francophone des 
u tilisaleurs 
d'Rpple 




Hew Calculator 



KS Word Count i 



1HL 
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